Паскаль. Решить через while. Найти все двузначные числа, которые делятся на n и содержат в себе цифру n

Var

A, N, C:byte;

B:boolean;

Begin

B:=false;

Write ('N = ') ; ReadLn (N) ;

A:=10;

While A<100 do

Begin

if A mod N = 0 then

Begin

C:=A;

While C0 do

Begin

if C mod 10 = N then B:=true;

C:=C div 10

End;

if B then Write (A,' ') ;

B:=false

End;

A:=A+1

End

End.