Advertisement
Guest User

1

a guest
Sep 19th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.59 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. x, y, z: Integer;
  10. a, b: Integer;
  11.  
  12. begin
  13. Writeln('Размеры куба');
  14. Readln(x, y, z);
  15. Writeln('Размеры дырищи');
  16. Readln(a, b);
  17. if x < y then
  18. if z < y then
  19. if ((a >= z) and (b >= x)) or ((b >= z) and (a >= x)) then
  20. Writeln('Ok')
  21. else
  22. if ((a >= x) and (b >= y)) or ((b >= x) and (a >= y)) then
  23. Writeln('Ok')
  24. else
  25. if ((a >= y) and (b >= z)) or ((b >= y) and (a >= z)) then
  26. Writeln('Ok');
  27. Readln;
  28. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement