pascal：帮帮！

你其实可以用字符串（string）来做，会很方便。
其中a【i】是从左至右第i位（我也13.我是不是更厉害？）
加分哦！

var
a:array[1..255]of 0..9;
st:string;
i:longint;

begin
readln(st);
for i:=1 to length(st)do a[i]:=ord(st[i])-ord('0');
end.

上面两位大哥,我才9岁,是不是最厉害?

用字符最简单
var ch:char;
now:integer;
a:array[0..10000]of char;
begin
now:=0;
while not eoln do begin now:=now+1;read(ch);a[now]:=ch;end;
end.

一楼我服你了，13岁了不起啊，我还12呢！三楼的，字节型有10000啊，也服了你！
var
a:string;
w,i:integer;
s:array[1..100]of integer;
begin
readln(a);（a是你输入的数）
w:=length(a);（w是求你输入的书有几位）
for i:=1 to w do
s[i]:=copy(a,i,1);(开始存入）
end.

首先声明，我用的是FREE PASCAL
其次声明，我才13（是不是很厉害）？
好了，言归正传
program lam;
var
a:array[1..100]of integer;
i,j,n:integer;
begin
read(n);
repeat
a[i]:=n mod 10;
n:=n div 10;