Написать в программе Паскаль программу:Вывести сначала положительные числа из отрезка [a;b], а потом отрицательные числа из отрезка [a;b] и количество положительных и отрицательных  чисел из отрезка [a;b]

var a,b,c,k:integer; begin read(a,b); if (a<0) and (b>0) then  begin for k:=1 to b do write (k,'   '); for k:=1 to a do write (-k, '   '); write(-a,'   ',b); end else if (a>0) and (b>0) then begin  for k:= a to b do write (k,'   ');  write (b-a); end else b:=-1*b; a:=-1*a; for k:= b to a do write (k,'   ');  write (b-a); end.

uses crt; const Q=10000; var a:array [1..Q] of integer;      x,k,p,m,n,o:integer; begin      write('a='); readln(m);      write('b='); readln(n);      a[1]:=m;      for x:=2 to (n-m+1) do          a[x]:=a[x-1]+1;      write('Положительные: ');      for x:=1 to (n-m+1) do          if a[x]>0 then begin inc(p); write(a[x],' '); end;      writeln;      write('Отрицательные: ');      for x:=1 to (n-m+1) do          if a[x]<0 then begin inc(o); write(a[x],' '); end;      writeln;      writeln('Положительных чисел:', p);      writeln('Отрицательных чисел:',o); end.