Вычислить сумму чисел кратных трем из 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.