Var a,b,c,x,y:real;
begin
writeln('Введите рёбра кирпича через пробел');
readln(a,b,c);
writeln('Введите размеры дыры');
readln(y,x);
if (a<c) and (b<c) then begin if (a<x)and(b<y) or (a<y) and (b<x) then write('Пройдёт')end
else if (b<a) and ((b<x)and(c<y) or (b<y) and (c<x) ) then write('пройдёт')
else if (a<y) and ((c<x)and(a<y) or (c<y) and (a<x)) then write('пройдёт')
else write ('не пройдёт');
<span>end.</span>
1. Выделено действие, которое система считает самым вероятным для выполнения к данному объекту. К файлу, например, выделено "открыть". Без меню - просто 2х клик мыши или enter клавиша.
<span>К - это количество символов в тексте.
I - это количество информации во всём тексте.</span>
А>0, b>0,c>0
a+b>c, a+c>b, c+b>a(неравенства т-ка)
In.txt и out.txt соотвественно
P.S. in.txt должен быть в Unicode