Даны два числа А и В. Найти наибольшее из них и вывести его на экран. Cоставить программу для Турбо Паскаль.

Program Z1;

var A, B: real;

begin

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

readln (A, B);

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

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

end.

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