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

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);endelsebegin  writeln('Большее число y= ',y);  writeln('Меньшее число x= ',x);end;end.