24. Заданы размеры А, В прямоугольного отверстия и размеры x, y, z кирпича. Определить, пройдёт ли кирпич через отверстие.

Решение

program lab24;

var a,b,x,y,z:real;

begin

write('a:');

read(a);

write('b:');

read(b);

write('x:');

read(x);

write('y:');

read(y);

write('z:');

read(z);

if (x<a) and (y<b) or (x<b) and (y<a) then

writeln('True')

else

if (x<a) and (z<b) or (x<b) and (z<a) then

writeln('True')

else

if (y<a) and (z<b) or (y<b) and (z<a) then

writeln('True')

else

writeln('False');

end.