Вывести на экран только положительные целые числа из диапазона от а до в (а< =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.