вычислить сумму чисел кратных трем из 10 введенных с клавиатуры

var  s, n, i: integer;begin  for i := 1 to 10 do   begin    readln(n);    if n mod 3 = 0 then      s := s + n;  end;  writeln(s);end.