работа с Паскалем. Вообще не понимаю как это делать. Помогите сделать хоть что нибудь

 var   
a,r : integer;    
begin 
readln (a);// Сторона квадрата 
readln (r);//Радиус круга   
if a >= (r*2) then   
writeln ('Поместиться')   
else   
writeln ('Не поместиться'); 
end.