В среде программирования FreePascal cоставить программу, определяющую большее из двух чисел. Проверить работу программы для всевозможных комбинаций чисел чисел

var

x, y : real; / / определяем две переменных.

begin

writeln (' Введите два разных числа: '); / / выводим строку на экран.

readln (x, y); / / считываем два числа, введенных с клавиатуры.

if (X > Y) then / / если первое число больше второго.

writeln ('Число ', x,' больше числа ', y) / / выводим строку на экран.

else / / если второе число больше первого.

writeln ('Число ', y,' больше числа ', x) / / выводим строку на экран.

end.