Заданы размеры а, в прямоугольного отверстия и размеры х, 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.