Напишите программу в паскале. Использование ветвлений. Ввести пять чисел и найти наибольшее из них. Пример: Введите пять чисел: 4 15 9 56 4 Наибольшее число 56

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

program LargestNumber;

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

begin
writeln('Введите пять чисел: ');
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('Наибольшее число: ', max);
end.