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

Паскаль. 

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