Algoritmo para ler três valores reais e informar se estes podem ou não formar os lados de um triângulo. Para que três valores possam formar os lados de um triângulo cada lado deve ser menor que a soma dos outros dois.

//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. Para que três valores possam formar os lados de um triângulo cada lado deve ser

//menor que a soma dos outros dois.

program formar_triangulo;

uses crt;

var

valor1, valor2, valor3:real;

begin

writeln('Informe o valor 1 ');

readln(valor1);

writeln(' Informe o valor 2 ');

readln(valor2);

writeln(' Informe o valor 3');

readln(valor3);

if (valor1 < (valor2 + valor3)) and (valor2 < (valor1 + valor3))

and (valor3 < (valor1 + valor2)) then

begin

writeln(' formam um triangulo');

end else begin

writeln(' Nao formam um triangulo');

end;

readkey;

end.