Информатика! помогите!

заданы числа a и b. определить, эти числа одного или разных знаков. на экране должно быть сообщение "числа одного знака" или "числа разных знаков".

Program abc;

var a, b:real;

begin

writeln ('введите а');

readln (a);

writeln ('введите b');

readln (b);

if a<0 and b<0 then writeln ('числа одного знака');

if a>0 and b>0 then writeln ('числа одного знака');

if a0 then writeln ('числа разных знаков');

if a>0 and b<0 then writeln (' числа разных знаков ');

readln;

end.