var a, b : real;
writeln ('vvedite dva chisla');
readln (a, b);
if a>b then writeln(a)
else writeln(b);
если я правильно поняла суть задачи, то должно было бы сработать
