30 определите значение переменной b после выполнения фрагмента алгоритма: a: =7 b: =0 да a=1? нет нет a: =a-15 b: = b+a в ответе должно получится 21

Var a,b: integer;
begin
a:=7;
b:=0;
while a<=1 then do
begin
a:=a-15;
b:=b+a;
end;
writeln(b);
end.