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

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.