150000 по моему.
Потому-что с марта до декабря 10 месяцев м поэтому 500000 умнажаем на 3 делим на 10 дробна
Readln(n);
for i:=1 to n do
a[i]:=random(100); //тут можно ввести макс. значение для рандома
k:=n div 2;
for i:=1 to k do
begin
t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;
end;
inc(k);
for i:=k to n do
begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
<span>writeln;
readln;
end.</span>
8бит=1байт
1Кбайт=1*1024байт
1Мбайт=1*1024Кбайт=1*1024*1024байт
(и так дальше проста на 1024 умножаешь) ответ 6656