Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.
Смотри в 9 изи переводишь 500 кбайт в биты и делишь их на 128000 результат буте секунды (просто что бы ты понял как это работает)
Program gt;
var f,ff:text;i,s,n:integer;
begin
assign(f,'input.txt');reset(f);
assign(f,'input.txt');rewrite(ff);
readln(f,n);
close(f);
s:=((1+n)*n)div 2;
writeln(ff,s);
close(ff);
<span>end.</span>
102в двоичной=10100110
В 8ой=146
В 16ой=066