По блок-схеме составить программу, определяющую значение переменной b

Question

По блок-схеме составить программу, определяющую значение переменной b

---

Comments

Вы в паскале работаете и учили ли вы while?

---

Да

---

ок

Answer 1

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