Даны два числа А и В. Отыскать величайшее из их и

Program  Z1;

var  A, B: real;

begin

writeln (Введите 2 числа);

readln (A,B);

  if  Agt;B then writeln (Большее число , A:3:0)

      else writeln (Большее число , B:3:0);

end.

Так как в тексте задания не указан тип переменной, по умолчанию используем переменные вещественного типа. При выводе на экран можно указать подходящую точность. Например, для вывода  на экран числа с двумя знаками поле запятой оператор будет выглядеть последующими образом: writeln (Большее число , A:3:2).