program szamjegy; var n, x, y,i,im,h,szj,j:integer; begin Writeln('Kerem a parametereket!'); Readln(n); Readln(x); Readln(y); For i:=1 to n do begin if i mod x=0 then begin h:=round(ln(i)/ln(10)+1); szj:=0; im:=i; for j:=1 to h do begin szj:=szj+im mod 10; im:=im div 10 end; if szj=y then write(i:4) end end; readln end.