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

У вас кривая версия Паскаля

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

вот так заработал

Еще раЗ: Версия Ваша КРИВАЯ.

Либо у Вас другой Паскаль, не Turbo/Borland. Потому что ReadKey находится в Crt, и если выкинуть ReadKey, окно вывода после выполнения программы мгновенно схлопнется и Вы не увидите результат.

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