Advertisement
Guest User

PASHA

a guest
Oct 21st, 2019
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.69 KB | None | 0 0
  1. program d;
  2. var
  3. l, a, b:integer;
  4.  
  5. begin
  6. readln (a,b,l);
  7.  
  8. if (l mod (a+a+b+b)- a) <= 0 then
  9. begin
  10. write('BOTTOM');
  11. end
  12. else
  13. if (l mod (a+a+b+b)- a-b) <= 0 then
  14. begin
  15. write('RIGHT');
  16. end;
  17. else
  18. if (l mod (a+a+b+b)- a-b-a) <= 0 then
  19. begin
  20. write('TOP');
  21. end;
  22. else
  23. if (l mod (a+a+b+b)- a-b-a-b) <= 0 then
  24.  
  25. write('LEFT');
  26. end;
  27.  
  28. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement