Получится такая последовательность кодов:
<span>86 42 01 41 83 43 01 41 86 42</span>
<span>
</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.
Я так понимаю вам нужна программа на Паскале
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>
Program yen;
var s,v,t:real;
begin
readln(v,t);
writeln('скорость=',v);
writeln('время',t);
s:=v*t;
writeln('путь,пройденный автомобилем=',s);
end. <span>
</span>