Question

Заданы размеры А, В прямоугольного отверстия и размеры Х, Y, Z кирпича.
Определите, пройдет ли кирпич через отверстие.
Помогите пожалуйста. Нужна через паскаль.

Answer 1

Var a,b,x,y,z:integer;
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
then write('Пройдёт')
else write('Не пройдёт');end.