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