Введите с клавиатуры 4 числа. Вывести на экран номер наибольшего числа. Это по паскалю.

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

Program FindMax;
var
num1, num2, num3, num4, maxNum: Integer;
begin
writeln('Введите четыре числа:');
readln(num1);
readln(num2);
readln(num3);
readln(num4);

maxNum := num1;

if num2 > maxNum then
maxNum := num2;
if num3 > maxNum then
maxNum := num3;
if num4 > maxNum then
maxNum := num4;

if maxNum = num1 then
writeln('Наибольшее число - первое: ', num1);
if maxNum = num2 then
writeln('Наибольшее число - второе: ', num2);
if maxNum = num3 then
writeln('Наибольшее число - третье: ', num3);
if maxNum = num4 then
writeln('Наибольшее число - четвертое: ', num4);
end.