2 т.к. 3к байтов = 24к битов
И 24к делим на 5*32*80=12к
Uses crt;
var i,a,b,c:integer;
begin
for i:=1 to 20 do
begin
if i<=7 then
begin
a:=a+i;
b:=b+sqr(i);
end;
if (i mod 2) = 0 then
c:=c+i;
end;
writeln('Сумма первых семи натуральных чисел: ',a);
writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b);
writeln('Сумма четных чисел от 1 до 20: ',c);
<span>end.</span>
Разметка страницы - поля - если в коллекции полей нет нужного, Настраиваемые поля
<span />
<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>