Kampuchiec

Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры y_razrez, значения площадей фигуры слева и справа от линии разреза s_left, s_right, по значениям аргумента x, введенным с консоли:
Есть код, но там где-то ошибка. Проверьте пожалуйста, если не затруднит. Заранее благодарен.

program opa;
uses crt;
var x,y,c,c1,A,B,sl,sr:real;
begin
write('vvedite x: ');
readln(x);
if (x>0) and (x<2.0)
then
begin
if (x<1.0)
then begin
c:=1.0-sqrt(1.0-x*x);
c1:=sqrt(1.0-(1.0-x)*(1.0-x));
A:=2.0*arctan(c/x);
B:=2.0*arctan(c1/(1-x));
sl:=x+0.25*(A-sin(A))-pi/4.0+(B-sin(B)/4.0);
sr:=2.0-sl;
y:=c+c1;
end
else
if (x>1.0)
then
begin
x:=2.0-x;
c:=1-sqrt(1.0-x*x);
c1:=sqrt(1.0-(1.0-x)*(1.0-x));
A:=2.0*arctan(c/x);
B:=2.0*arctan(c1 / (1 - x));
sr:=(x+0.25*(A-sin(A))-pi/4.0+(B-sin(B))/4.0);
sl:=2.0-sr;
y:=c+c1;
end
else
begin
y := 2.0;
sl := 1.0;
sr := 2.0 - sl;
end;
writeln('S_right=', sr:0:2, ' ', 'S_left=', sl:0:2, ' ', 'y=', y:0:2);
end
else
begin
if (x=0)
then
begin
sr:=2;
sl:=0;
y:=0;
end
else
if (x=2)
then
begin
sr:=0;
sl:=2;
y:=0;
end;
if (x>2) or (x<0)
then
writeln('x vne znacheniy')
else
writeln('S_right=', sr:0:2, ' ', 'S_left=', sl:0:2, ' ', 'y=', y:0:2);
end;
readln;
end.

Миниатюры