Сколько получится, запишите полученный результат.
Program Hello; // Pascal [fpc 3.0.4]
var s,k:integer;
begin
for k:= 14 to 18 do
s:=s+7;
writeln(s);
end.