===== PascalABC.NET =====
begin
var a1 := 4; // первое натуральное, кратное 4
var an := 300; // последнее из интервала, кратное 4
var d := 4; // разность прогрессии
var n := (an - a1) div d + 1; // количество чисел
var s := (a1 + an) * n div 2; // сумма
Print(s)
end.
===== PascalABC.NET =====
begin
var a1 := 4; // первое натуральное, кратное 4
var an := 300; // последнее из интервала, кратное 4
var d := 4; // разность прогрессии
var n := (an - a1) div d + 1; // количество чисел
var s := (a1 + an) * n div 2; // сумма
Print(s)
end.