Помогите срочно с программированием! Очень надо! Заранее спасибо!

Question

Помогите срочно с программированием! Очень надо! Заранее спасибо!

---

Answer 1

Var x,s:integer;
begin
  s := 0;
  read(x);
  while x <> 0 do
    begin
    if (x mod 3 = 0) and (x mod 10 = 4)
      then s := s + x;
    read(x)
    end;
  write(s)
end.