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

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

for i:=a to b do

begin

if i > 0 then write (' ', i); / / выводим первый ответ

r:=r + 1;

end;

writeln;

writeln (' количество положительных = ', r); / / выводим второй ответ

r:=0;

for i:=a to b do

begin

if i < 0 then write (' ', i); / / выводим третий ответ

r:=r + 1;

end;

writeln;

writeln (' количество отрицательных = ', r); / / выводим четвертый ответ

end.