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

program zz1;

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

begin

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

read (s1);

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

read (s2);

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

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

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

end.