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    endend.ПримерВведите 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