Написать программу(паскаль). с пояснениями, желательно. нужно с for. найти сумму всех n-значных чисел, кратных k.(1 < (или равно) n< (или равно)4).

program sada;

var k,n,res,i:integer;

     temp:string;

begin

res:=0;

readln(k);

temp:='';

for i:=1 to n do

temp:=temp+'9';

n:=strtoint(temp);

for i:=1 to n do begin

if (i mod k = 0) then res:=res+i;

end;

writeln(res);

end.

p.s. Программа написана на pascalABC

var

  k, n, Summ, i, max, min:integer;

begin

  write('n = '); readln(n);

  write('k = '); readln(k);

  max := 9;

  min := 1;

  for i := 2 to n do

  begin

    max := max * 10 + 9;

    min := min * 10;

  end;

  for i := min to max do

    if i mod k = 0 then

      Summ := Summ + i;

  writeln('Сумма = ', Summ);

end.