Algoritmo para ler três valores reais e informar se estes podem ou não formar os lados de um triângulo e qual tipo de triângulo seria: Equilátero, isósceles ou Escaleno.

{Faça um algoritmo para ler três valores reais e informar se estes podem ou não
 formar os lados de um triângulo e qual tipo de triângulo seria:
 Equilátero, isósceles ou Escaleno.}

program TrianguloMonitoria2;
uses crt;
var
  a, b, c:real;

begin
writeln('Informe o valor 1 ');
readln(a);
writeln(' Informe o valor 2 ');
readln(b);
writeln(' Informe o valor 3');
readln(c);

if(a <( b + c))and( b <( a + c))and( c <( a + b))then

 begin
 writeln(' formam um triangulo:');
   if ( a = b) and (a = c) and (b = c) then
    begin
     writeln('O triangulo eh equilatero');
     end

   else
     begin
      if (( a = b) and (a <> c) and (b <> c)) or ( ( a = c)
      and (a <> b) and (c <> b) ) or ( ( b = c) and (b <> a)
      and (a <> c) ) then
       begin
         writeln('O triangulo eh isosceles');
        end
   else
     begin
      writeln(' O triangulo eh Escaleno');
     end;
   end;
 end
 else
   begin
     writeln(' Nao formam um triangulo');
    end;

readkey;

end.