Заданы размеры A B прямоугольного отверстия и размеры X,Y,Z Кирпича определить пройдёт ли кирпич через отверстие. Сделать в программе VBA

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.