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

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