вычислить сумму чисел от 10 до 70, чисел кратных 4

var i,s:integer;begins:=0;for i:=10 to 70 do if i mod 4 = 0 then s:=s+i;writeln('S = ',s);end.Результат:S = 600