Запишите значение переменной s, полученное в результате работы следующей програм

Запишите значение переменной s, полученное в результате работы следующей программы.

Var s,k: integer;

Begin

s := 0;

for k := 3 to 7 do

s := s + 6;

writeln(s);

End.