Любая программа на паскале

Var x, y:real;

begin

write ('Введите x = ') ; readln (x) ;

write ('Введите y = ') ; readln (y) ;

if x=y then

writeln ('Числа равны')

else

if x>y then

begin

writeln ('Большее число x = ', x) ;

writeln ('Меньшее число y = ', y) ;

end

else

begin

writeln ('Большее число y = ', y) ;

writeln ('Меньшее число x = ', x) ;

end;

end.