Найти сумму чисел, кратных трем в диапазоне от 0 до 50

Question

Найти сумму чисел, кратных трем в диапазоне от 0 до 50

Answer 1

Var k,sum:integer;
begin
sum:=0;
for k:=0 to 50 do
if(k mod 3 =0) then sum:=sum+k;
writeln(sum);
end.