Даны значения трёх действительных переменных a, b и c. Найти наибольшее значение из a, b и c.

program zz1;

var a, b, c, p:real; / /задаем переменные не целого типа

begin

write ('введите первое число '); / / вводим с клавиатуры первое число

read (a);

write ('введите второе число '); / / вводим с клавиатуры второе число

read (b);

write ('введите третье число '); / / вводим с клавиатуры третье число

read (c);

If (a > = b) and (b > = c) Then write (' большее ', a); / / проверяем, если первое число больше других, то выводим на экран ответ

If (b > = a) and (b > = c) Then write (' большее ', b); / / проверяем, если второе число больше других, то выводим на экран ответ

If (c > = b) and (c > = a) Then write (' большее ', c); / / проверяем, если третье число больше других, то выводим на экран ответ

END.