Вычислите значение в циклическом алгоритме

Var s,k: integer;
Begin
s := 0;
for k := 3 to 8 do
s := s + 9;
writeln(s);
End.