Составить программу turbo pascal 7.01 : заданы числа a и b. определить, эти числа одного или разных знаков

Uses Crt;

var
  a,b:real;
 
begin
  ClrScr;
  Write('Введите два числа через пробел: ');
  Read(a,b);
  if a*b>0 then Writeln('Числа одного знака')
  else Writeln('Числа разных знаков');
  ReadKey
end.