Вычислить значение выражения - Turbo Pascal (33709)

uses crt;
var x,y1,y2,y3,y4:real;
begin
clrscr;
write('x=');
readln(x);
if abs(x)<2 then writeln('y1 не определено')
else
 begin
  y1:=sqrt(x*x-4);
  writeln('y1=',y1:0:2)
 end;
if x=-2 then writeln('y2 не определено')
else
 begin
  y2:=(x*x-3*x+2)/(x+2);
  writeln('y2=',y2:0:2)
 end;
if (x=-2)or((x*x-3*x+2)/(x+2)<0) then writeln('y3 не определено')
else
 begin
  y3:=sqrt((x*x-3*x+2)/(x+2));
  writeln('y3=',y3:0:2)
 end;
if x<=0 then
 begin
  if abs(x)<2 then writeln('y4 не определено')
  else
   begin
    y4:=sqrt(x*x-4);
    writeln('y4=',y4:0:2)
   end
 end
else
 begin
  y4:=sqrt((x*x-3*x+2)/(x+2));
  writeln('y4=',y4:0:2)
 end;
readln
end.