(код программы на ЯП Паскаль): Пройдет ли колобок с талией L в квадратное окно со...

$\displaystyle L=\pi D \to D= \frac{L}{\pi} ; \\ D\ \textless \ A; \quad \frac{L}{\pi}\ \textless \ A \to L\ \textless \ \pi A$

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
var
L,A:real;
begin
Writeln('Введите размер талии и длину стороны окна: ');
Read(L,A);
if L else Writeln('не пройдет')
end.

(код программы ** ЯП Паскаль): Пройдет ли колобок с талией L в квадратное окно со...