ALGORITMO PALINDROMA
VAR
PAROLA, LETTERE, I, PAL
BEGIN
READ PAROLA
I := 0
LETTERE := 0
WHILE PAROLA[I] !=" "
I := I + 1
ENDWHILE
LETTERE := I - 1
I := 0
PAL := VERO
WHILE (I< LETTERE/2) AND (PAL = VERO)
IF PAROLA[I] != PAROLA[LETTERE - I]
PAL := FALSO
ENDIF
I := I + 1
ENDWHILE
IF PAL = VERO
PRINT "LA PAROLA" . PAROLA . "E' PALINDROMA"
ELSE
PRINT "LA PAROLA" . PAROLA . "NON E' PALINDROMA"
ENDIF
END