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