Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.