Нужно ввести пять целых чисел и найти максимальное из них. в паскале, используя оператор "if then else". как поняла, необходимо расписать все , уже видела здесь решение через n, это не подходит. буду тому, кто решит

Program abc
var a,b,c,d,e,max:real;
Begin
Writeln ('Введите пять целых которые нужно сровнять между собой');
readln (a,b,c,d,e);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>max then max:=d;
if e>max then max:=e;
Writeln ('Наибольшее число ',max);
End.