Existência de triângulo, em Pascal

Descrição

Esconder código-fonte

Program Triangulo;

{$ifndef __GPC_RELEASE__} Uses Crt; {$endif} 

Type

{$ifdef FPC}
   MyInt = QWord;
{$endif}

{$ifdef __GPC_RELEASE__}
   MyInt = LongestWord;
{$endif}

Var

   a, b, c : MyInt;

Begin

   WriteLn('Digite valores inteiros nao-nulos e positivos.');

   Write('Entre com a medida do lado 1 do triangulo: ');
   ReadLn(a);

   Write('Entre com a medida do lado 2 do triangulo: ');
   ReadLn(b);

   Write('Entre com a medida do lado 3 do triangulo: ');
   ReadLn(c);

   If (a<=0) Or (b<=0) Or (c<=0) Then
   Begin
      WriteLn('Lados nulos ou negativos nao sao aceitos.');
      Halt(1);
   End;

   If (a>=b+c) Or (b>=c+a) Or (c>=a+b) Then
   Begin
      WriteLn('Triangulo inexistente.');
      Halt(1);
   End;

   If (a=b) And (b=c) Then
      Writeln ('Triangulo equilatero.')

   Else If (a=b) Or (b=c) Or (c=a) Then
      WriteLn('Triangulo isosceles.')

   Else
      WriteLn('Triangulo escaleno.');

End.