Написать в программе Паскаль программу:

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

Var a, b, c, k:integer;

begin

read (a, b) ;

if (a0) 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.