Verified answer

Программа на паскале:

var r1, a: real;

begin

write('R1 = ');

readln(r1);

write('A = ');

readln(a);

if 2*r1<a then writeln('Круг поместится в квадрате')

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

end.

Пример:

R1 = 2

A = 5

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