Известны площадь круга S и площадь квадрата S. Определить: поместится ли квадрат в круг — Pascal(Паскаль)

Круг уместится в квадрат только тогда, когда его диаметр будет не больше стороны квадрата. Чтобы квадрат уместил в круг необходимо, чтобы его диагональ была не больше диаметра круга. Диаметр круга рассчитывается по формуле: d=2√ (s/π) Сторона квадрата: a=√S.

VAR
  kr, kv: real;

BEGIN
  Readln(kr);
  Readln(kv);
  if kr * 1.273239544735 > kv then
    write('Не поместится')
  else
    write('Поместится');

END.