Переменная i присваивает значения от 13 до 5,то есть
13,12,11,10,9,8,7,6,5.
type z=array of integer;
var a: z;
i,j,k: integer;
begin
setlength(a,1);
readln(a[0]);
i:=1;
while(a[i-1]<>0) do
begin
setlength(a,i+1);
readln(a[i]);
i:=i+1;
end;
setlength(a,length(a)-1);
for i:=0 to length(a) do
for j:=0 to length(a)-2 do
if (a[j] < a[j+1]) then
begin
k:=a[j];
a[j]:= a[j+1];
a[j+1]:=k;
end;
write(a[0],'; ',a[1],'; ',a[2],'; ',a[3]);
end.
<span>1 байт это 8 бит
1000\8=125 байт
</span>
<span>Черный цвет кодирует соответственно (0,0,0). Все оттенки серого цвета образуются смешиванием трех составляющих одинаковой яркости. Например, при значениях (200,200,200)получается светло-серый цвет, а при значениях (100,100,100) темно-серый. Чем более темный оттенок серого нужно получить, тем меньшее число нужно вводить в каждое текстовое поле.</span>