Program X;
var
a, r: real;
begin
write ('Introduceti lungimea laturii patratului: ');
readln (a);
write ('Introduceti lungimea razei cercului: ');
readln (r);
if r<(a/2) then writeln ('Cercul incape in patrat.')
else writeln ('Cercul nu incape in patrat.');
readln;
end.