Program num2;
var
S, n: integer;
begin
S:=0;
for n:=6 to 22 do
S:=S + n;
writeln('Сумма чисел=', S:6);
readln ;
end.
Program num2;
var
S, n: integer;
begin
S:=0;
for n:=6 to 22 do
S:=S + n;
writeln('Сумма чисел=', S:6);
readln ;
end.