Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.