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

program zz1;

var s1, s2:integer; //задаем переменные целого типа

begin

write( введите заданную площадь круга );  // вводим с клавиатуры 1-ое число

read(s1);  

write( введите заданную площадь квадрата );  // вводим с клавиатуры 2-ое число

read(s2);

if 2 * sqrt(s1/pi) lt;= sqrt(s2)  // проверяем, если диаметр круга меньше или равен стороны квадрата, то

then writeln( круг помещается в квадрат )  // выводим один ответ

else writeln( круг не вмещается в квадрат );  // по другому, выводим иной ответ

end.