Задача на тему цикл с параметром Паскаль.

Определить среди 10 чисел какое из них наибольшее и вывести порядковый номер этого числа.

Program P;

Var

n, i : Integer;

max, iMax: Integer;

Begin

Write ('Enter 10 numbers ') ;

for i : = 1 to 10 do

Begin

Read (n) ;

if i = 1 then

Begin

max : = n;

iMax : = i;

End

else

if n > max then

Begin

max : = n;

iMax : = i;

End;

End;

WriteLn ('Max = ', max) ;

WriteLn ('index = ', iMax) ;

ReadLn;

End.