Даны площадь круга S1 и площадь квадрат S2. Определить поместится ли квадрат в круге.

Паскаль. 

var s1,s2:integer;begin  writeln('Введите площадь круга');readln(s1);  writeln('Введите площадь квадрата');readln(s2);  if s1>=s2 then writeln('Поместится') else writeln('Не поместится')end.

if sqrt(s1/Pi)>=Sqrt(2*S2) then Write('Поместится') else WriteLn('Не поместится')