Ребята помогите. Как сделать отношение такое отношение переменных.Чем меньше переменная A

Ответ:

Необходимо наращивать переменную b на разность прошедшего значения a и нового.

Программка на языке PascalABC

program raf105;

var a,b,a1: integer;

begin

writeln('Введите исходные значения');

write('a = ');

readln(a);

write('b = ');

readln(b);

while True do

begin

 writeln;

 write('a = ');

 readln(a1);

 b:= b+(a-a1);

 writeln('b = ',b);

 a:= a1;

end;

end.