Question

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

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.