1.
uses crt;
var i,n,x:longint;
a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
repeat readln(x);
unti x<n;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
write(a[x]);
readln
end.
2.
uses crt;
var i,n,max:longint;
a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
max:=0;
for i:=1 to n do if max<a[i] then max:=a[i];
write(max);
readln
end.
