PROGRAM PRIMER2;
CONST N=3;
VAR I,MAX,M: INTEGER;
X:ARRAY [1..N]OF INTEGER;
BEGIN
FOR I:=1 TO N DO
READLN (X[I]);
MAX:=X[1];
M:=1;
FOR I:=2 TO N DO
IF X[I]>MAX THEN
BEGIN
MAX:=X[I];
M:=I;
END;
WRITELN ('������.�������=',���:5,'��� �����-',M:2);
END.