надо написать программку в pascal которая произнесет поместится прямоугольный шкаф с

var a,b,c,m,n:integer;

BEGIN

write('Длина шкафа = ');

readln(c);

write('Ширина шкафа = ');

readln(a);

write('Вышина шкафа = ');

readln(b);

write('Длина двери = ');

readln(m);

write('Ширина двери = ');

readln(n);

if ((a*blt;=m*n) and (((alt;=m) and (blt;=n)) or ((alt;=n) and (blt;=m)))) or

((a*clt;=m*n) and (((alt;=m) and (clt;=n)) or ((alt;=n) and (clt;=m)))) or

((c*blt;=m*n) and (((clt;=m) and (blt;=n)) or ((clt;=n) and (blt;=m)))) then

writeln('ДА') else

writeln('НЕТ');

end.