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

Program proga; var a,r: integer; begin write ('Сторона квадрата: '); readln (a); write ('Радиус окружности: '); readln (r); if a=2*r then writeln ('Можно') else writeln ('Нельзя'); end.