{okomentuj a pripadne uprav program}
var p:array[1..8] of byte;
i,cislo:byte;
begin
for i:=1 to 8 do p[i]:=0;
i:=0;
writeln('Zadaj cisla predavacov: ');
repeat
inc(i);
write(i,'. zakaznik ');
readln(cislo);
if cislo<>0 then inc(p[cislo]);
until cislo=0;
writeln('Obsluzili: ');
for i:=1 to 8 do write(' ':3,i,'. ');
writeln;
for i:=1 to 8 do write(p[i]:4,' ':4);
writeln;
readln;
end.
