Var a,b,c,r,d1,d2,d3:real;
begin
writeln('Введи радиус иллюминатора и размеры сундука');
readln(r,a,b,c);
d1:=sqrt(sqr(a)+sqr(b));
d2:=sqrt(sqr(a)+sqr(c));
d3:=sqrt(sqr(b)+sqr(c));
writeln('Диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' Диаметр окна: ',2*r);
if (d1<r*2)or(d2<r*2)or(d3<r*2) then writeln('Сундук пройдёт') else writeln('Сундук не пройдёт');
end.
K1 = 32*64 = 2048
K2 = 32*128 = 4096
I1 = K1*i1 = 2048*1 = 2048 бит
I2 = K2*i2 = 4096*8 = 32768 бит
I = I1+I2 = 2048+32768 = 34816 бит = 4,25 Кбайт
Введите значения переменной MM=3sqr((1+M)*6) 576