Ответ: var a,b: integer;begina:=7;b:=0;while a<=1 then dobegina:=a-15;b:=b+a;end;writeln(b);end.