Укажите число, которое программа выведет на экран.

var i, m: integer;
begin
m := 0;
for i := 3 to 7 do
m := m-6+i;
writeln\(m\);
end.