Задание

var s,k: integer;

begin

s := 0;

for k := 3 to 7 do

s := s + 6;

writeln(s);

end.

Запишите зна­че­ние переменной s