можно ли вписать окружность радиусом R см в квадрат, периметр которого составляет P см? Составить программу в паскале​

var a,b,S:real;

begin

write('Периметр: ');

readln(a);

S:=a/4;

write('Радиус: ');

readln(b);

if (S>=b) then

writeln('Можно!')

else

writeln('Нельзя!');

end.