Алгоритмы с двумя формами ветвлений – альтернативой и переключателем

program algoritmy;
uses CRT;
const r=1;
      t=0.5;
var y_razrez, s_left, s_right, x, alfa, betta,z, h: real;
begin
Writeln('введите значение x');
Readln(x);
if (x=0)
Then begin
y_razrez:=1;
s_left:=((Pi*r*r)/2-((Pi*t*t)/4))-s_right;
s_right:=((Pi*r*t))/4;
end;
if (x<>0)
then if (x>=-1)
     then begin
     y_razrez:=1;
     Trunc(x);
     s_left:=((Pi*r*r)/2-((Pi*t*t)/4))-s_right;
     s_right:=((Pi*r*t))/4;
     end
else if (x<=1)
     then begin
     y_razrez:=1;
     Trunc(x);
     s_left:=((Pi*r*r)/2-((Pi*t*t)/4))-s_right;
     s_right:=((Pi*r*t))/4;
end;
WriteLn('y_razrez=',y_razrez:0:6);
WriteLn('s_left=',s_left:0:6);
WriteLn('s_right=',s_right:0:6);        
end.

uses CRT;
//функция длины разреза в левой части
function f1(x:real):real;
begin
f1:=2*(-sqrt(1-x*x)+1);
end;
//функция длины разреза в правой части
function f2(x:real):real;
begin
f2:=2*sqrt(1-sqr(x-1));
end;
//функция площади сегмента (правая часть)
function f3(x,y:real):real;
var a:real;
begin
a:=2*arctan(y/(x-1));
f3:=(a-sin(a))/2;
end;
 
var x,y_razrez,s_right,s_left:real;
begin
repeat
write('введите значение x от 0 до 2 x=');
readln(x);
until(x>=0)and(x<=2);
case trunc(x)of
0:y_razrez:=f1(x);
1:y_razrez:=f2(x);
end;
writeln('Длина линии вертикального разреза=',y_razrez:0:2);
if x=1 then
 begin
  s_right:=pi/2;
  s_left:=2-s_right;
 end
else if x>1 then
 begin
  s_right:=f3(x,f2(x));
  s_left:=2-s_right;
 end
else
 begin
  s_left:=2*x-(pi/2-f3(x+1,f2(x+1)));
  s_right:=2-s_left;
 end;
writeln('s_right=',s_right:0:2);
writeln('s_left=',s_left:0:2);
end.