Дано n чисел, определить номер максимального значения

const n=5; var a: array [1… n] of integer; imax,i,max: integer; beginfor i: =1 to n doread (a[i]); max: =a[1]; for i: =2 to n doif a[i]>max thenbegin max: =a[i]; imax: =i; end; write (i); end.