Запиши программу на языке программирования Паскаль.Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

Предыдущий
вопрос Следующий
вопрос

program FindMax;

var
num1, num2, num3, num4, num5, max: integer;

begin
writeln('Enter five integer numbers: ');
readln(num1, num2, num3, num4, num5);

max := num1;

if num2 > max then max := num2;
if num3 > max then max := num3;
if num4 > max then max := num4;
if num5 > max then max := num5;

writeln('The largest number is: ', max);

end.