На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000

var c:array[1..9] of integer; i:integer; a:byte;beginfor i:=1 to 9 doc[i]:=0;repeatreadln(a);if a<>0 then inc(c[a]);until a=0;for i:=1 to 9 dowrite(c[i],\' \');end.Второй вариант выполнения программы:var C : array [1..9] of Integer; i : Integer;begin for i := 1 to 9 do C[i] := 0; repeat Read(i); if (i > 0) and (i < 10) then Inc(C[i]); until i = 0; for i := 1 to 9 do Write(C[i]); WriteLn;end.