Algorítimo Pascal - Arestas do Triângulo

Desenvolva um programa que dadas três variáveis A, B e C, como sendo as arestas de um triângulo determine se:

1. Forma um triângulo (a+b>c e a+c>b e c+b>a);
2. Caso seja um triângulo determinar se este é:
   1. Escaleno (A<>B e A<>C e B<>C);
   2. Isósceles ((A=B e A<>C) ou (A=C e A<>B) ou (B=C e B<>A));
   3. Equilátero (A=B e B=C). 

program RESPOSTA_2;

{$APPTYPE CONSOLE}

VAR

A, B, C: REAL;

BEGIN

WRITELN('INFORME O VALOR DE A: ');

READLN(A);

WRITELN('INFORME O VALOR DE B: ');

READLN(B);

WRITELN('INFORME O VALOR DE C: ');

READLN(C);

IF (A+B > C) AND (A+C > B) AND (C+B > A) THEN

BEGIN

WRITELN('A, B E C FORMAM UM TRIANGULO!');

END

ELSE

IF (A=B) AND (A=C) THEN

WRITELN('TRIANGULO EQUILATERO');

IF (A=B) OR (A=C) OR (B=C) THEN

WRITELN('TRIANGULO ISOSCELES');

IF (A <> B) AND (A <> C) AND (B <> C) THEN

WRITELN('TRIANGULO ESCALENO');

READLN;

END.