Ввести три числа и найти наибольшее из них. пример: введите три числа: 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.