Var s, k:integer; begin s:= 1; for k:= 1 to 7 do s:= s + k; writeln (s); end. Какой ответ?

Question

Var s, k:integer;
begin
s:= 1;
for k:= 1 to 7 do
s:= s + k;
writeln (s);
end.
Какой ответ?

Answer 1

Ответ 29
======================