Вкоментах вопрос. а хотя вот вопрос: складі программу для знаходження всіх двоціфрових ціфр що діляться на 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.