var a:array [1..1000] of integer;
i,n:integer;
begin
writeln ('Введите кол-во элементов');
readln (n);
writeln ('Заполните массив');
for i:=1 to n do begin
write ('a[',i,']=');
read (a[i]);
end;
writeln ('Все элементы больше 1:');
for i:=1 to n do
if a[i]>1 then writeln ('a[',i,']=',a[i]);
end.