Вывести на экран только положительные целые числа из диапазона от А до В (А меньше =B) (сделать в паскале)    

var   a, b, i : integer; begin   read (a, b);   for i := a to b do if i > 0 then writeln (i); end.

Program Zadacha; var     a, b, i : integer; begin   Read(a, b);   if b>0 then     for i:=1 to b do         Write(i, ' '); end.