Сторона квадрата А,радиус круга R. Можно ли круг вписать в квадрат? решение записать в Pascal Abc

Ответы:

program proga,

var a,r: integer,

begin 

write(Сторона квадрата:), 

readln(a), 

write(Радиус окружности: ), 

readln(r), 

if a=2*r then 

writeln(Можно) 

else 

writeln(Нельзя),

end.