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

заданы числа 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.