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

program kryginkvadrat;

var

 s1, s2: integer;

begin

 writeln('Введите площать круга - ');

 readln(s1);

 writeln('Введите площадь квадрата - ');

 readln(s2);

 if s1 <= s2 then  

 writeln('Круг поместится в квадрат')

 else

 writeln('Круг не поместиться к вадрат');

end.

program prog314;

var

 s1, s2: real;

d1, d2: real;

begin

 writeln('Введите площать круга: ');

 readln(s1);

 writeln('Введите площадь квадрата: ');

 readln(s2);

d1 := 2*sqrt(s1/3.14);

d2 := sqrt(s2);

 if d1 <= d2 then  

 writeln('Круг поместится в квадрат')

 else

 writeln('Круг не поместиться в квадрат');

end.

Объяснение: