Так как на картинке или выдели текст которому нужно поменять цвет и нажми правую кнопку мыши и там увидишь, если не в этой программе тогда напиши в интернете там показано.
Uses crt;
var
a:array [1..255] of byte;
i,n,j:integer;
begin
for i:=1 to 255 do
begin
a[i]:=random(100);
write(a[i]," ");
end;
write("сколько чисел складывать:");
read(n);
for i:=1 to n do
begin
j:=J+a[i];
end;
writeln(j);
readln;
end.
Дабы создать документ текстовый, необходимо вам программу открыть соответствующую. Microsoft Office Word, например. Затем, когда программушка открыта, должно вам положить рученьки свои на клавиатурушку и понажимать кнопочки, символике алфавита русского соответствующие. По завершении действа сего форматирование текста идет: шрифт, размер, цвет и прочие прелести. Завершается процедура сия дивная нажатием кнопки "Сохранить".
Готово! Вы - лучший!
Так как один байт=8 битам вот
840.000 бит:8=105.000 байтов
Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.