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

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