Question

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

Answer 1

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