var sum, min, c: integer; a: integer; p, z: boolean; count, b, tmp: byte; BEGIN count:=0; sum:=0; min:=32767; write('-> '); repeat read(c); sum:=sum+c; if (c