Может быть вот так, мы писали что-то похожее в классе, только по другому сформулировано
program Chisla;
<span> </span><span>var a,n:integer; </span>
<span>begin </span>
writeln('a= ',a);
<span>readln(a); </span>
<span>if (a div 100 <9) and (a div 100 >=1) then inc(n); </span>
<span>writeln('n= ',n); </span>
<span> </span><span>end.
</span>Прошу прощения, если не то...
N = int(input("n = "))
for i in range(0,n+1):
print (i)
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Решили поменяться лошадьми Я стараюсь финишировать первым на чужой лошади, тогда я выиграю так рыцаря на моей лошади обогнал