Сколько раз будет выполнен оператор write?
Var s,k: integer;
Begin
s := 0;
for k := 3 to 7 do
begin
s := s + 6;
writeln\(s\);
end;
End.