program primer2;
const N=3;
var I,max,m: integer;
x: array [1..n] of integer;
begin
x[1]:=10;
x[2]:=5;
x[3]:=15;
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.