вывести на экран большее из четырёх чисел (в паскале)

Если самый прямолинейный способ, путём сравнения каждого числа с каждым, то вотuses crt;var a,b,c,d:integer;BeginWriteln(' Введите 4 числа');Readln(a,b,c,d);If (a>b) and (a>c) and (a>d) thenWriteln('Наибольшее число из данных ', a)ElseIf (b>a) and (b>c) and (b>d) tnen Writeln('Наибольшее число из данных ', b)ElseIf (c>a) and (c>b) and (c>d) thenWriteln('Наибольшее число из данных ', c)ElseWriteln('Наибольшее число из данных ', d);End.