Найти сумму всех n-значных чисел, кратных k (1 ≤ n ≤ 4). кумир. , надо!

Ятак понимаю вам нужна программа на паскале program zadacha; var s,k,n,p,i: integer; begin s: =0; p: =1;       readln(n,k);       for i: =1 to n do p: =p*10;       for i: =trunc(p/10) to p-1 do      if i mod k=0 then      s: =s+i; write(s); end.