Advertisement
Guest User

Untitled

a guest
Mar 21st, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. function Check(n: longint): string;
  2. var
  3. i,k:longint;
  4. begin
  5. for i:=1 to n do
  6. if n mod i=0 then k:=k+1;
  7. if k>2 then Check:='NO'
  8. else Check:='YES';
  9. end;
  10. var
  11. a: integer;
  12.  
  13. begin
  14. readln(a);
  15. writeln(Check(a));
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement