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.
5 раз больше не ту!!!!! а тут что так трудно
"В"скорее всего, так как тут говориться про природу!
*Год.exe - неправильное название из за символа *
Новый!_Год.txt - правильное, нет запрещенный символов
Новый-год:exe - неправильно из-за двоеточия, там должна быть точка
Новый год,exe - неправильно из-за запятой, там должна быть точка