20 напечатать все целые значения от a до b с шагом h.

// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,h,x:real;
  var xx,t:integer;
  Write('Введите a, b, h: '); Read(a,b,h);
  xx:=Trunc(a); Print(xx);
  x:=a+h;
  while x<=(b+h/10) do begin
    t:=Trunc(x+h/10);
    if t<>xx then begin xx:=t; Print(xx) end;
    x:=x+h
    end
end.

Пример
Введите a, b, h: -15.2 20 0.2
-15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20