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

var
t,s,k,n,i:integer;
begin
writeln('n=');
readln(n);
writeln('k=');
readln(k);
t:=1;
for i:=1 to n
t:=t*10;
for i:=t div 10 to t-1 do
if i mod k=0 then s:=s+i;
writeln(s);
readln;
end.