var a,b,S:real;
begin
write('Периметр: ');
readln(a);
S:=a/4;
write('Радиус: ');
readln(b);
if (S>=b) then
writeln('Можно!')
else
writeln('Нельзя!');
end.
var a,b,S:real;
begin
write('Периметр: ');
readln(a);
S:=a/4;
write('Радиус: ');
readln(b);
if (S>=b) then
writeln('Можно!')
else
writeln('Нельзя!');
end.