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

Program zadacha;
uses crt;
var n, k: integer;
s: longint;
begin
clrscr;
write ('enter k: ');
readln (k);
s:=0;
for n:=k to 9999 do begin
if n mod k = 0 then 
s:=s+n;
end;
writeln ('summa=', s);
readkey;
end.