Прокомментировать программу

program rgr3;
var a,b,c,y,EPS:real;
function f(x:real):real;
begin
f:=2/(sqr(3*sin(2*x)))-3/(sqr(4*cos(2*x)))
end;
begin
repeat
write('a=');
readln(a);
write('b=');
readln(b);
write('EPS=');
readln(EPS)
until (a>0) and (b>0) and (EPS>0);
if f(a)*f(b)<0 then
        begin
        repeat
        c:=a-(b-a)/(f(b)-f(a))*f(a);
        y:=f(c);
        if f(a)*f(c)<0 then b:=c else a:=c;
        until abs(f(c))<=EPS;
        writeln('C=',c:7:2)
        end
               else
writeln('>EPS');
readln
end.

program rgr3;
var a,b,c,y,EPS:real;
{функция которая считает виражение} 
function f(x:real):real;
begin
f:=2/(sqr(3*sin(2*x)))-3/(sqr(4*cos(2*x)))
end;
 
begin
{Вводим значение переменных и погрешность должны быть положительными иначе с помощью 
цикла будет повторный ввод }
repeat
write('a=');
readln(a);
write('b=');
readln(b);
write('EPS=');
readln(EPS)
until (a>0) and (b>0) and (EPS>0);
 
if f(a)*f(b)<0 then {если произведение двух выражений которые считаются в функции меньше 0 то }
        begin
        repeat
        c:=a-(b-a)/(f(b)-f(a))*f(a);{в цикле считаем выражение одно и другое}
        y:=f(c);
        if f(a)*f(c)<0 then b:=c else a:=c;{если произведение двух выражений которые считаются в функции меньше 0 то одной b:=c иначе a:=c; }
        until abs(f(c))<=EPS; { цикл выполняется пока выражение по модулю больше заданной погрешности  }
        writeln('C=',c:7:2)
        end
               else
writeln('>EPS');
readln
end.