Программа решает следующую задачу: Даны два вещественных числа. Найти и вывести наибольшее из них.
program Example2_1;
a, b, max : real;
begin
{Ввод}
writeln(‘Введите два вещественных числа:’);
readln(a, b);
{Вычисление}
if a > b then
max := a
else
max := b;
{Вывод}
writeln(‘Наибольшее значение равно ’, max:6:2);
end.