Cоставить программу в паскале определите пройдет ли колобок с длиной "талии" L в квадратное окно со стороной а

Радиус вписанной окружности в квадрат равен половине стороны квадрата. "Длинна талии" - это длинна окружности. Она равна  2πr. Значит найдём радиус "колобка" и сравним его с размерами окна: var L,a:real; begin     writeln('Введи L и а через пробел');     readln(L,a);     if (L/(2*pi))<(a/2) then writeln('Пройдёт: ширина колобка ', L/(2*pi)*2, ', ширина окна ', a) else writeln('Не пройдёт: ширина колобка ', L/(2*pi)*2, ', ширина окна ', a); end.