две геометрические фигуры вырезаны из бумаги:круг радиуса R и равносторонний треугольник со стороной D(данные вещественные).Описать функцию,аргументами которой являются размеры фигур,а результатом будет TRUE,если одной фигурой можно закрыть другую,и FALSE в противном случае- Pascal(Паскаль)

program a1;
uses crt;
var
 r2,d2: real;
function IsIn(R,D:real):boolean;
 var rmin,rmax:real;
 begin
     rmax:=D*sqrt(3)/6;
     rmin:=rmax/2;
     if (R<=rmin) or (R>=rmax) then IsIn:=TRUE
     else IsIn:=false;
 end;
begin
 clrscr;
 write('Vvedite R i D: ');
 readln(r2,d2);
 writeln(IsIn(r2,d2));
end.