program a;
var
mas: 1..30,
ii: integer;
begin
for ii := 1 to 30
mas[ ii ] := 40 + random( 61 );
end.
Введите значения переменной MM=3sqr((1+M)*6) 576
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>
Маша и вова, маша и олег, женя олег, женя вова ,маша женя