Помогите!
Ввести три числа и найти наибольшее из них.
Пример:
Введите три числа:
4 15 9
Наибольшее число 15

program Henry;vara,b,c,max:real;beginwriteln('Здравствуйте, введите 3 числа: ');readln(a,b,c);if (a>b) and (a>c) then max:=aelse if b<c then   max:=c else  max:=b;writeln('Наибольшее число:  ',max);end.