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

Программа суммирует числа от 1 до 7, и после этого выводит получившееся  значение на экран. Возможно там ошибка, должно быть s:=0. Если s:= 1; то программа суммирует числа от 1 до 7 +1