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

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.