//fpc 3.0.0 паскаль информатика решите пж
program HelloWorld;
var s,k: integer;
begin
s := 5
for k := 7 to 14 do
s := s + 2 * k
writeln (s);
end.
program HelloWorld;
var s,k: integer;
begin
s := 5
for k := 7 to 14 do
s := s + 2 * k
writeln (s);
end.