回帖：Procedure readdata(var int:arrtype);
var ch:char; i,k:integer;
Begin
read(ch); k:=0;
while (ch>='0') and (ch