Напишите программу поиска всех двузначных чисел…

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.