Question

Помогите пожалуйста! Даю 35 баллов

Что и куда мне нужно подставить?
var K,S,x:integer;
BEGIN
x:=8;
write('K='); read(K);
while x<=K do
begin
if x mod 7=0 then S:=S+x;
x:=x+1;
end;
write('S=',S);
END.

Answer 1

Ответ:

S=97

S=9

Объяснение: