Определите результат выполнения алгоритма по блок-схеме - PascalABC.NET

Формулировка задачи:

По приведённой блок-схеме алгоритма при а=-1, b=3, h=1: - Определите результат выполнения алгоритма. - Сколько раз выполнится цикл? - Восстановите условие задачи. буду благодарен.

Решение задачи: «Определите результат выполнения алгоритма по блок-схеме»

Листинг программы

var
x, y, a, b, h : integer;
begin 
readln (a);
readln (b);
x := a;
while b < x do begin
 if abs(x)< 1 then 
 y := x
  else y:=x*x+1;
 x := x+h;
end;
writeln (x);
writeln (y);
end.

Объяснение кода листинга программы

Сначала программа запрашивает у пользователя значения переменных a и b с помощью функции readln.
Затем происходит инициализация переменной x значением переменной a.
Далее, в цикле while, программа сравнивает значение переменной b с текущим значением переменной x.
Если значение x меньше или равно нулю, то значение переменной y присваивается значение переменной x.
В противном случае, значение переменной y присваивается значение выражения (x*x)+1.
Затем значение переменной x увеличивается на значение переменной h.
Цикл продолжается до тех пор, пока значение переменной b не станет больше значения переменной x.
По завершении цикла, программа выводит значения переменных x и y с помощью функции writeln.