Сторона квадрата А,радиус круга 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.