Нужна ! дана заданы размеры а, в прямоугольного отверстия и размеры х, y, z кирпича. определить пройдет ли кирпич через отверстие. вот решение, нужно его написать без crt program z2_37; uses crt; label 1; var m, a,b, x,y, z: real; begin clrscr; write ('размеры отверстия a, b='); read(a, b); write ('размеры кирпича x, y,z='); read(x, y,z); if a> b then begin m: =a; a: =b; b: =m end; if x> y then begin m: =x; x: =y; y: =m end; if x> z then begin m: =x; x: =z; z: =m end; if y> z then begin m: =y; y: =z; z: =m end; if (x> =a) or (y> =b) then write('кирпич не пройдет через отверстие') else write('кирпич пройдет через отверстие'); 1: readkey; end.