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

var  x, y : real;                                             // определяем две переменных.begin   writeln(\' Введите два разных числа: \');  // выводим строку на экран.  readln(x, y);                                         // считываем два числа, введенных с клавиатуры.   if (X > Y) then                                     // если первое число больше второго.     writeln(\'Число \', x,\' больше числа \', y) // выводим строку на экран.   else                                                      // если второе число больше первого.     writeln(\'Число \', y,\' больше числа \', x) // выводим строку на экран.end.