Triángulo

Código fuente

Program triangulo; Uses crt; Var a, b, c : Integer; Begin Clrscr; Write('Ingrese cateto opuesto : '); Readln(a); Write('Ingrese cateto adyacente : '); Readln(b); Write('Ingrese la hipotenusa : '); Readln(c); If (a+b<c) or (a+c<b) or (b+c<a) Then Write('No forman un triangulo') else If (a=b) and (b=c) and (a=c) Then Write('forman un tri ngulo equil tero') else If (a=b) or (b=c) or (a=c) Then Write('forman un tri ngulo is¢celes') else If (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) Then Write('forman un tri ngulo rect ngulo') else Write('forman un tri ngulo escaleno'); Readln; End.