SHARE
TWEET

PASHA

a guest Oct 21st, 2019 88 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top