не, ты не понял... хм... как бы объяснить... кароче, мне нужно чтоб задачи были решены подобно этой...
мне первую решили, уже не нужно..



var a,c,d,b: array [1..100] of integer;
j, i, n, k,h,e: integer;
begin
readln(n);
for i:=1 to n do begin read (a[i]);
j:=1; k:=1; h:=1;
for i:=1 to n do begin begin begin
if a[i]=0 then begin b[j]:=a[i]; j:=j+1; end;
if a[i]=1 then begin c[k]:=a[i]; k:=k+1; end;
if a[i]=2 then begin d[h]:=a[i]; e:=e+1; end; end; end;end;
for i:=1 to j do begin write (' ',b[j]) end;
for i:=1 to k do begin write (' ',c[k]) end;
for i:=1 to h do begin write (' ',d[h]) end;
end;
readln
end.