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.