A l'aide pascal (probléme)

saisir un entier n
de 1 jusqu'au n : si un nbre de cette intervalle est premier écrire("premier")
si un nbre de cette intervalle est super premier écrire ("super premier")

Un nbre super premier est un nombre qui reste premier si en efface un chiffre de droite
ex : 234556 23455 2345 234 23 2
svp la solution d'(un) ou d'(une) génie d'algorithme.