Advertisement
AlinaSereda

Untitled

Jan 14th, 2020
147
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. var
  2. n,i,a:integer;
  3. begin
  4. readln(n);
  5. for i:=1 to n do
  6. begin
  7. readln(a);
  8. If (a mod 2 <> 0) and (a mod 10 <> 3 ) then
  9. writeln('YES')
  10. else
  11. writeln('NO');
  12. end;
  13. Writeln('YES';or;'NO');
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement