вывести все натуральные трехзначные числа, в которых есть заданная цифра. На паскале.

Var A, I, O: Integer;

Begin

ReadLn(A);

For I:=100 to 999 do Begin

 If I div 100 = A Then  

 O:=O+1;

 if (I div 10)-(I div 100) = A then  

 O:=O+1;

 If I - ((I div  10)*10) = A Then  

 O:=O+1;

End;

WriteLn(O);

End.