Ввести три числа и найти наибольшее из них 4 15 9 с Нужна полностью рабочая программа. Чтобы потом не надо было вставлять числа

program Henry;

var

a,b,c,max:real;

begin

writeln('Здравствуйте, введите 3 числа: ');

readln(a,b,c);

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

max:=a

else

if b<c then

  max:=c

else

 max:=b;

writeln('Наибольшее число:  ',max);

end.

Объяснение: