запишите значение переменной Var s,k: iunegerBegins:=0for k:=3 to 8 do s: = s+9 writeln(s)End

Представим, что количество циклов - x.
x=8-3+1=6 циклов.
Значит к переменной s число 9 будет добавлено 6 раз, значит s=6*9=54.
Соственно в конце программы k будет равным 8, и s будет равным 54.