В коментах вопрос. а хотя вот вопрос: Складі программу для знаходження всіх двоціфрових ціфр що діляться на N або містять ціфру N
Var i,n:integer; begin write('Write n: '); readln(n); for i:=10 to 99 do if (i mod n=0) or ((i div 10=n) or (i mod 10=n)) then writeln(i,' '); readln end.