// 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<br> 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