найдите сумму всех целых чисел от 1 до 2019 кратных 3​

//Скомпилируй этот код и получишь ответ.

program sum;

var i, s: Integer;

begin

for i:=1 to 2019

do if(i mod 3 = 0) then s:= s+i;

writeln(s);

end.