fork download
copy 
  1. var
  2. 	i,j,N:longint;
  3. begin
  4. 	readln(N);
  5. 	if N = 1 then
  6. 	begin
  7. 		writeln('BUKAN');
  8. 	end
  9. 	else
  10. 	begin
  11. 		for i:= 1 to N do
  12. 		begin
  13. 			if (N mod i = 0) then
  14. 			begin
  15. 				j:=j+1;
  16. 			end;
  17. 			if j = 2 then
  18. 			begin
  19. 				writeln('YA');
  20. 			end
  21. 			else
  22. 			begin
  23. 				writeln('BUKAN');
  24. 			end;
  25. 		end;
  26. 	end;
  27. end.
Success #stdin #stdout 0s 4516KB
comments (?)
stdin
copy 
4
1
2
3
4
stdout
copy 
BUKAN
YA
YA
BUKAN
https://ideone.com/uOR0t2
language:
Pascal (fpc 3.0.4)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!