Advertisement
EWTD

prime number v.2

Sep 18th, 2017
473
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.12 KB | None | 0 0
  1. program lol;
  2. var
  3. a,i:integer;
  4. begin
  5. readln(a);
  6. for i:=1 to a do
  7. begin
  8. if (a mod i) = 0 then
  9. write(i,' ');
  10. end;
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement