Объяснение:
var a1, a2 : real
BEGIN
writeln ('vvedi dva chisla');
readln (a1, a2);
if a1 > a2 then writeln (a1) else writeln (a2);
END.
