найти сумму всех n-значных чисел, кратных k(1<=n<=4) Паскаль

нужно на цикл с предусловием

Нужна программа на Паскале?program zadacha;var s,k,n,p,i:integer;begins:=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.