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