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

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