Var
x,y:real;
begin
writeln('vvedite dva chisla');
readln(x,y);
if x>y then writeln (x:1:5) else writeln(y:1:4);
readln;
end.

На 5 строчке пишет : Ошибка времени выполнения: Входная строка имела неверный формат.

Tumka2003    3   06.05.2020 16:55    4