Написать программу, которая находит все двузначные числа и их количество, которые делятся на n или содержат цифру n (0

var a,n:integer;

begin

writeln('Введите n');

readln(n);

for a:=10 to 99 do

if (a mod n =0)then writeln(a);

end.