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

uses crt;var a,n:integer;begin     write('n:'); readln(n);     if n>=10 then writeln('error')     else     for a:=10 to 99 do     if (a mod n=0) or (a div 10=n) or (a mod 10=n) then writeln(a);end.