Question

Составить программы вычесления суммы чисел 7 до 700 кратных 14

Answer 1

var sum:integer;

begin
for var i:=7 to 700 do   
if (i mod 14 =0) then sum:=sum+i;
println(sum);
end.