Пожалуйста помогите написать программу в паскале!!!!!!!
Даны радиус круга и сторона квадрата. Проверьте, пройдет ли круг в квадрат?
var r,a:real;
begin
readln(r,a);
if 2*r end.
end.