procedure readdata(var int:arrtype);
var
ch:char;
i,k:integer;
begin
writeln('Input a number:');
read(ch);k:=0;
while ch in['0'..'9'] do
begin
inc(k);
int[k]:=ord(ch)-48;
read(ch);
end;
for i:=k downto 1 do begin
int[n+i-k]:=int[i];
int[i]:=0;
end;
end;

将一个大数分位存在数组里，高精度有用