Разветвляющийся вычислительный процесс.

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, то остроугольный
   {else if c<0 then writeln('treugolnik tupougolnyj')
    else if abs(c)<0.00001 then writeln('treugolnik pryamougolnyj');}//это на потом, вдруг пригодится.
  end;
readln
end.

uses crt;
var x,y:real;
    k:integer;
begin
clrscr;
write('x=');
readln(x);
write('Введите целое k=');
readln(k);
case k of
0,2:y:=k*x*x;
4,6:if x=0 then y:=0
    else if x<0 then y:=-exp(ln(abs(x))/k)
    else y:=exp(ln(x)/k);
else y:=(k*x*x+k*k*x)/abs(x*x+1);
end;
write('Y=',y:0:2);
readln
end.