igorich1376

cif16

Aug 2nd, 2024
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.55 KB | None | 0 0
  1. uses robot;
  2. begin
  3. Task('cif16');
  4. if WallFromUp and WallFromLeft then
  5. begin
  6. while FreeFromDown do down;
  7. while FreeFromRight do right;
  8. end
  9. else
  10. begin
  11. if WallFromRight and WallFromDown then
  12. begin
  13. while FreeFromleft do left;
  14. while FreeFromUp do up;
  15. end
  16. else
  17. begin
  18. if  WallFromRight and WallFromUp then
  19. begin
  20. while FreeFromDown do down;
  21. while FreeFromLeft do left;
  22. end
  23. else
  24. begin
  25. if WallFromDown and WallFromLeft then
  26. begin
  27. while FreeFromUp do up;
  28. while FreeFromRight do right;
  29. end;
  30. end;
  31. end;
  32. end;    
  33. end.
Advertisement
Add Comment
Please, Sign In to add comment