Выяснить, существует ли треугольник с длинами сторон x, y, z

program tip;
uses crt;
var x,y,z,x1,x2,mx,mn,sr,c: real;
begin
clrscr;
write ('x= ');readln (x);
write ('y= ');readln (y);
write ('z= ');readln (z);
if (x+y<=z) or (x+z<=y) or (y+z<=x) then
   begin
    writeln ('treugolnik ne sushestvuet');
    readln;
    halt;
   end
else
  begin
    mx:=x;  {находим наибольшую сторону}
    if y>mx then mx:=y;
    if z>mx then mx:=z;
    mn:=x;   {находим наименьшую сторону}
    if y<mn then mn:=y;
    if z<mn then mn:=z;
    sr:=x+y+z-mx-mn; {находим оставшуюся сторону}
    c:=(mn*mn+sr*sr-mx*mx)/(2*mn*sr);{косинус наибольшего угла}
    if c>0 then writeln('treugolnik ostrougolnyj') {если кос>0, то угол меньше 90 градусов}
    else if c<0 then writeln('treugolnik tupougolnyj'){больше 90 градусов}
    else if c=0 then writeln('treugolnik pryamougolnyj'); {равен 90 градусов}
  end;
readln
end.

x= 0.3
y= 0.4
z= 0.5
treugolnik ostrougolnyj

if abs(c)<1e-10 then writeln('treugolnik pryamougolnyj')
else if c>0 then writeln('treugolnik ostrougolnyj') {если кос>0, то угол меньше 90 градусов}
else if c<0 then writeln('treugolnik tupougolnyj');{больше 90 градусов}

if (mx*mx = mn*mn + sr*sr)
    then writeln('treugolnik pryamougolnyj')
else
{остальные условия}