Заданы два целых числа a и b. Составьте программку, определяющую, сколько

var a,b:integer;

begin

readln (a,b);

if alt;b then write (b-1-a) else write(0)

end.

Ввод: a ^ b С/П.

- xgt;=0 05 0 С/П /-/ 1 - С/П

Согласен, отрицательный итог противоречит условию, исправил. Благодарю за замечание, был невнимателен.

Смысл кода таковой:

X = a; Y = b;

X -= Y; Если не (X gt;= 0), переход на 05; X = 0; Стоп; [05] Смена знака; Y = X, X = 1; X -= Y; Стоп. На индикаторе X.

Рад, что мои решения кому-то интересны.