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[1] ;
M:=I;
END;
WRITELN ('������. �������=' ,MAX:5,'��� �����-',M:2);
END.