Ejercicio 1(Inicio A)

PROGRAM triangulo(input,output);
(*Programa que pida los lados de un triángulo y saque por pantalla si el tríangulo es equilátero, isosceles o escaleno *)
VAR
a:real;
b:real;
c:real;
BEGIN
write('Escriba el lado 1:');
readln(a);
write('Escriba el lado 2:');
readln(b);
write('Escriba el lado 3:');
readln(c);
IF((a=b)AND(b=c)AND(a=c))THEN
 write('El triángulo es equilatero(lado1=lado2=lado3= ',a:2:1,' cm)')
ELSE
 IF(a=b)THEN
write('El triángulo es isosceles(lado1=lado2= ',a:2:1,' cm)')
ELSE
 IF(a=c)THEN
write('El triángulo es isosceles(lado1=lado3= ',a:2:1,' cm)')
ELSE
 IF(b=c)THEN
write('El triángulo es isosceles(lado2=lado3= ',b:2:1,' cm)')
ELSE
IF((a=0)OR(b=0)OR(c=0))THEN
 write('No hay triángulo')
ELSE
write('El triángulo es escaleno');
read(c);
END.


Ejemplo de Ejecución

                                                                                                                                                     Siguiente