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

program abc;var a,b:real;beginwriteln ('введите а');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.