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.
Объяснение:
