Напишите программу поиска всех двузначных чисел, в которых есть цифра 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.