Advertisement
RAZUM_04

Untitled

Jan 23rd, 2018
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.62 KB | None | 0 0
  1. Program if2;
  2. Uses Robot;
  3. Begin
  4. Task('if2');
  5. paint;
  6. left;
  7. if WallFromLeft then begin
  8. Paint;
  9. Right;
  10. End
  11. else Right;
  12. Right;
  13. if WallFromRight then begin
  14. Paint;
  15. Left;
  16. End
  17. else Left;
  18. Up;
  19. if WallFromUp then begin
  20. Paint;
  21. Down;
  22. End
  23. else Down;
  24. Down;
  25. if WallFromDown then begin
  26. Paint;
  27. Up;
  28. End
  29. else Up;
  30. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement