Паскаль, желательно с решением

Const
  n = 20;

var
  a,b: array[1..n] of integer;
  i, j, i2: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  j:=0;
  for i := 1 to n do
  begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then begin Inc(j); b[j]:=a[i] end;
  end;
  Writeln;
  for i := 1 to n do
    if a[i]>=0 then begin Inc(j); b[j]:=a[i] end;
  Writeln('Результат');
  for i := 1 to n do Write(b[i]:4);
  Writeln
end.

Тестовое решение:
Элементы массива
   3  14  10   1  -3  -2 -11 -12  13   1  17  13   8  24  -3 -23 -17  -8 -10 -22
Результат
  -3  -2 -11 -12  -3 -23 -17  -8 -10 -22   3  14  10   1  13   1  17  13   8  24

Var
  a,b,c,p,q,h,x,y:real;
begin
  Write('Введите через пробел коэффициенты a,b,c: ');
  Read(a,b,c);
  Write('Введите через пробел границы интервала [p;q]: ');
  Read(p,q);
  Write('Введите шаг табуляции h: ');
  Read(h);
  x:=p;
  while x<=q+h/10 do begin
    y:=c+x*(b+x*a); { схема Горнера для вычисления значения полиномов }
    Writeln(x:15:8,y:15:8);
    x:=x+h
  end
end.

Тестовое решение:
Введите через пробел коэффициенты a,b,c: -4 2.7 10.582
Введите через пробел границы интервала [p;q]: -3 2.5
Введите шаг табуляции h: 0.25
    -3.00000000   -33.51800000
    -2.75000000   -27.09300000
    -2.50000000   -21.16800000
    -2.25000000   -15.74300000
    -2.00000000   -10.81800000
    -1.75000000    -6.39300000
    -1.50000000    -2.46800000
    -1.25000000     0.95700000
    -1.00000000     3.88200000
    -0.75000000     6.30700000
    -0.50000000     8.23200000
    -0.25000000     9.65700000
     0.00000000    10.58200000
     0.25000000    11.00700000
     0.50000000    10.93200000
     0.75000000    10.35700000
     1.00000000     9.28200000
     1.25000000     7.70700000
     1.50000000     5.63200000
     1.75000000     3.05700000
     2.00000000    -0.01800000
     2.25000000    -3.59300000
     2.50000000    -7.66800000