FUNCTION TRI (A, B, C)
BEGIN
IF A = B AND B = C AND A = C
TRI := “IL TRIANGOLO E’ EQUILATERO”
ELSE
IF A = B OR B = C OR A = C
TRI := “IL TRIANGOLO E’ ISOSCELE”
ELSE
TRI := “IL TRIANGOLO E’ SCALENO”
ENDIF
ENDIF
END

ALGORITMO TRIANGOLO
VAR
LATOA, LATOB, LATOC
BEGIN
PRINT “INSERIRE LATI A, B, C”
READ LATOA, LATOB, LATOC
PRINT TRI (LATOA, LATOB, LATOC)
END