divisibilité par le chiffre de dizaines

ÉNONCÉ
24 est un entier divisible par son chiffre des dizaines (2).
Ecrire une analyse, un algorithme et la traduction en pascal d’un programme intitulé « Dizaine » qui permet de lire un entier (N) et vérifier s’il est divisible par son chiffre des dizaines.
Remarque : 10<=N<100

ANALYSE
Nom : Dizaine
Résultat= Sol
Sol=[]
Si N Mod D=0 Alors
Ecrire(N, "est divisible par ",D)
Sinon Ecrire(N, "n'est pas divisible par ",D)
Finsi
D<-- N Div 10
N = Donnée ("saisir N")
Fin Dizaine

ALGORITHME
0) Debut Dizaine
1) Ecrire ("saisir N") Lire(N)
3) D<-- N Div 10
2)Si N Mod D=0 Alors
Ecrire(N, "est divisible par ",D)
Sinon
Ecrire(N, "n'est pas divisible par ",D)
Finsi
Fin Dizaine

PASCAL
Program Dizaine;
uses Wincrt;
Var N,D : Integer;
begin
Write ('saisir N');
Read(N);
D:=N div 10;
If N Mod D=0 Then
Write(N, 'est divisible par ',D)
Else
Write(N, 'n''est pas divisible par ',D);
End.

modifier ce programme pour qu'il puisse contrôler la saisie de l'entier (>=10 et <100)