25 . склади програму для знаходження всіх двоцифрових чисел що діляться на n або містять цифру n.

Var i,n:integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod n=0) or (i mod 10=n) or (i div 10=n) then writeln(i);
end.