математическая модель и таблица

[MsJane]

Помогите пожалуйста составить математическую модель и таблицу трассировки! Очень очень надо=)))
Задача: Найти суммe всех n-значных чисел, кратных k (1<= n <= 4)

var n,summa,i,nachalo,konec, k:integer;
begin
     writeln(': ');
     readln(n);
     Writeln(': ');
    readln(k);
     nachalo:=1;
                for i:=1 to n do
                  nachalo:=nachalo*10;
                  nachalo:=nachalo div 10;
                  konec:=nachalo*10-1;
                        for i:=nachalo to konec do
                          if i mod k=0 then summa:=summa+i;
     writeln(‘Сумма ’, summa);
     readln;
end.