Вывод текста по TRUE/FALSE

var a,b,c:real;
 
function is_triangle(a,b,c:real):boolean;
var k:boolean;
begin
 k:=true;
 if (a>=b+c) or (b>=a+c) or (c>=a+b) then k:=false;
 is_triangle:=k;
end;
 
function is_isosceles(a,b,c:real):boolean;
var k:boolean;
begin
 k:=false;
 if (a=b) or (b=c) or (a=c) then k:=true;
 is_isosceles:=k;
end;
 
function is_equilateral(a,b,c:real):boolean;
var k:boolean;
begin
 k:=false;
 if ((a=b) and (b=c)) then k:=true;
 is_equilateral:=k;
end;
 
function is_right(a,b,c:real):boolean;
var k:boolean;
begin
 k:=false;
 a:=a*a;
 b:=b*b;
 c:=c*c;
 if (c=a+b) or (a=b+c) or (b=a+c) then k:=true;
 is_right:=k;
end;
 
begin
 readln(a,b,c);
 writeln('Треугольник  ',is_triangle(a,b,c));
 writeln('Равнобедренный  ',is_isosceles(a,b,c));
 writeln('Равносторонний  ',is_equilateral(a,b,c));
 writeln('Прямоугольный  ',is_right(a,b,c));
end.

if is_triangle(a,b,c):=true then write('Треугольник ') and
if is_isosceles(a,b,c):=true then write('Равнобедренный  ') and
if is_equilateral(a,b,c):=true then write('Равносторонний  ') and
if is_right(a,b,c):=true then write('Прямоугольный  ')

if is_triangle(a,b,c) then write('Это треугольник, он ');
if is_isosceles(a,b,c) then write('равнобедренный ')
else if is_equilateral(a,b,c)then write('равносторонний  ')
else if is_right(a,b,c) then write('прямоугольный  ');

if is_triangle(a,b,c):=true then write('Треугольник ') and
if is_isosceles(a,b,c):=true then write('Равнобедренный  ') and
if is_equilateral(a,b,c):=true then write('Равносторонний  ') and
if is_right(a,b,c):=true then write('Прямоугольный  ')

 if is_triangle(a,b,c)then
   begin
     write('Треугольник  ');
     if is_isosceles(a,b,c) then
       if is_equilateral(a,b,c) then writeln('Равносторонний')
                                else writeln('Равнобедренный');
     if is_right(a,b,c) then writeln('Прямоугольный  ')
   end;

 readln(a,b,c);
if is_triangle(a,b,c) then write('Это треугольник, он ');
If not is_triangle(a,b,c) then 
 begin 
 write('Треугольника с данными сторонами не существует ');
 exit 
 end;
if not is_isosceles(a,b,c) and not is_equilateral(a,b,c) and not is_right(a,b,c) then write('произвольный ' );
if is_isosceles(a,b,c) then write('равнобедренный ');
if is_equilateral(a,b,c)then write('равносторонний  ');
if is_right(a,b,c) then write('прямоугольный  ');

  k:=True
  if условие then k:=False;

function is_triangle(a, b, c: Real): Boolean;
begin
 is_triangle:=(a<b+c) and (b<a+b) and (c<a+b);
end;
 
function is_isosceles(a, b, c: Real): Boolean;
begin
  is_isosceles:=(a=b) or (b=c) or (a=c);
end;
 
function is_equilateral(a, b, c: Real): Boolean;;
begin
  is_equilateral:=(a=b) and (b=c);
end;
 
function is_right(a, b, c: Real): Boolean;
begin
  a:=a*a;
  b:=b*b;
  c:=c*c;
  is_right:=(c=a+b) or (a=b+c) or (b=a+c); { = -- очень плохая идея }
end;