Заданы числа 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 a<0 and b>0 then writeln ('числа разных знаков');
if a>0 and b<0 then writeln ('числа разных знаков');
readln;
end.