Question

По блок-схеме составить программу на языке Паскаль.

Answer 1

Ответ:

var a, b:Integer;

begin

a:=2;

b:=0;

repeat

 a:=a+1;

 b:=b+a;

until a = 7;

writeln(b);

end.