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

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