var f: array [1..1000] of integer;
i,n,j,nom,t: integer;
begin
write ('Введите кол-во чисел в послеовательности: ');
read (n);

f[1]:=1;
f[2]:=1;

for i:= 3 to n do                //формируем массив из чисел Фибоначчи
 f[i]:=f[i-1]+f[i-2];
 
 writeln('Первоначальный вид последовательности: ');
  for i:= 1 to n do write  (f[i],' ');

 
 for i:=1 to n-1 do          //сортировка методом вставки
begin
      nom:=i+1;
t:=f[nom];
   for j:=i+1 downto 2 do
 begin
if (t>f[j-1]) then
       begin
f[j]:=f[j-1];
nom:=j-1;
       end;
end;
f[nom]:=t;
end;
 writeln();
 
 writeln('Переобразованный вид последовательности: ');
  for i:= 1 to n do write  (f[i],' ');
 end.