Составьте программу в которой с клавиатуры вводится 3 числа и программа выводит наибольшее из них, а если они равны, то пишет, что равны.

Обозначим переменные для трех этих чисел:

a, b, c : real;

Добавляем этим переменным их значения, которые будет вводиться с клавиатуры:

readln (a, b, c);

Создадим временную переменную такого же типа, которая будет содержать текущее максимальное значение:

vr_maksim_zn : real;

Если а больше b, то переменной vr_maksim_zn присвоим значение а, иначе - b:

if (a > b) then

vr_maksim_zn : = a

else

vr_maksim_zn : = b;

if (c > vr_maksim_zn) then

vr_maksim_zn : = c;

И случай, когда все они равны:

if (a = b) and (b = c) then

writeln ('Все равны')

else

writeln (vr_maksim_zn);