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

Question

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

Answer 1

Var 
  s,i: integer;
begin
  s:=0;
  for i:=0 to 50 do 
    if i mod 6 =0
      then s:=s+i;
  writeln ('S = ',s)
end.
-----------------------------
S = 216