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

program zz1;

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

begin

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

read(a);  

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

read(b);

for i:=a to b do

begin

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

r:=r + 1;

end;

writeln;

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

r:=0;

for i:=a to b do

begin

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

r:=r + 1;

end;

writeln;

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

end.