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 fomarTriangulos;

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.