program maximum_index;
const n=8;
var i, max_index: integer;
    a: array [1..n] of integer;
begin
  max_index:=1;
  write(' a[1]='); readln(a[1]);
  for i:= 2 to n do
  begin
    write(' a[',i,']='); readln(a[i]);
    if a[max_index]<a[i] then max_index :=i;
  end;
  writeln('A tomb legnagyobb elemenek indexe: ',max_index);
  readln;
end.