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 ('максим. элемент=',max:5,'его номер-',m:2);
end.