(код программы на яп паскаль): пройдет ли колобок с талией l в квадратное окно со стороной а. все исходные данные вводятся с клавиатуры.

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