Вид семья хищных животных
Я так понимаю вам нужна программа на Паскале
program zadacha;
var s,k,n,p,i:integer;
begin
s:=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);
<span>end.</span>
Я возможно не понял что тебе надо , перед котом пишешь
for i=1 to 6 do
Begin
код
end;
и убудет 6 одинаковых