Даны два числа. определить эти числа одного знака или разных. напишите пожалуйста программу на паскале:)

program N52840482;
var a,b:real;
begin
write('Введите 1-е число: ');
readln(a);
write('Введите 2-е число: ');
readln(b);
if a*b > 0 then
writeln('Знаки одинаковые')
else
writeln('Знаки разные');
readln;
end.