Program mas1;
uses crt;
Var   a: array [1..30] of real;
      i,n,P,k,c: integer;
      d: real;
Begin
repeat
    Write(' Введите n:');
    Readln(n);
    if (n<0) or (n>30) then
    writeln(' n неправильно введено');
until (n>=1) and (n<=30);
P:=2;
For k:=1 to n do  Begin
    P:=P*(k+2);
    a[k]:=P*cos(k);
end;
writeln(' Получен массив А');
for i:=1 to n do
    writeln('A[',i:2,']=',A[i]:15:3);
writeln;
For i:=1 to n do begin
    for k:=1 to n-1 do begin
    if a[i]>a[k] then begin
       d:=a[k];
       a[k]:=a[i];
       a[i]:=d
end;
end;
end;
writeln;
writeln(' Массив по убыванию');
for i:=1 to n do
    writeln('A[',i:2,']=',A[i]:15:3);
writeln;
c:=2000;

k:=1;
while a[k]>c do
  k:=k+1;

writeln('Элементы выше  ',c,' ');
for i:=1 to k-1 do
   writeln(a[i]);
end.