Triângulo com Pascal

Este algorítmo identifica um tipo de triângulo a partir dos dados inseridos pelo usuário e imprime na tela o tipo de triângulo com equilátero, isósceles ou escaleno.

PSEUDO LINGUAGEM:
Programa triangulo
variáveis lado1,lado2,lado3: real
início
leia(lado1)
leia(lado2)
leia(lado3)
se (lado1 > (lado2+lado3)) ou(lado2 > lado1+lado3) ou (lado3 > (lado1+lado2)) então
imprima(Os valores informados nao formam um triângulo)
fim se
senão
se (lado1=lado2) e (lado2=lado3) então
imprima(Este é um triângulo equilatero)
fim se
senão
se (lado1=lado2) ou (lado1=lado3) ou (lado2=lado3) então
imprima('Este é um triângulo isósceles)
fim se
senão
imprima(Este é um triângulo escaleno)
fim

PASCAL:
Program triangulo;
var
lado1,lado2,lado3: real;
Begin
write('Digite o valor do lado 1: '); //Entrada de dados do usuário.
readln(lado1); //Lê os dados inseridos pelo usuário e atribui como valor da variável declarada.
write('Digite o valor do lado 2: ');
readln(lado2);
write('Digite o valor do lado 3: ');
readln(lado3);
if (lado1 > (lado2+lado3)) or (lado2 > lado1+lado3) or (lado3 > (lado1+lado2)) then //Testa os valores dados para ver se formam ou não um triângulo.
begin
clrscr; //Este comando limpa a tela.
writeln('Os valores informados nao formam um triângulo');
end
else
if (lado1=lado2) and (lado2=lado3) then
begin
clrscr;
writeln('Este é um triângulo equilátero');
end
else
if (lado1=lado2) or (lado1=lado3) or (lado2=lado3) then
begin
clrscr;
writeln('Este é um triângulo isosceles');
end
else
begin //se nao for nenhum dos 2 acima significa que este triângulo é o que sobrou, no caso, escaleno, pois já fizemos os testes para as outras possibilidades.
clrscr;
writeln('Este é um triângulo escaleno');
end;
End.

Para lembrar!

O Triângulo é um polígono. Os tipos de triângulos são:
Equilátero: É um triângulo que possui 3 lados e 3 ângulos iguais.
Isósceles: Possui dois 2 e 2 ângulos iguais.  
Escaleno: Possui 3 lados e ângulos diferentes.

Ex.: Lado 1= 30cm, Lado 2= 30cm e Lado 3= 30cm Triângulo Equilátero (três lados e três ângulos iguais).