pascal题..

Description

企鹅大学有很多很多名学生，课程也很多。譬如企鹅语，北极熊语，企鹅初级数学，企鹅高级数学等等等等…… 现在，企鹅大学的校长想请你为他们写一个程序：计算总分的程序。请你由他们输入课程的数量以及一个学生每门课程的分数，输出该学生的总分。

Input

第一行：一个整数n(1 ≤ n ≤ 5000)，代表企鹅大学的课程数目。
第2至第n+1行：每行有一个1整数，第i+1行代表某一位学生在第i门课上取得的分数。分数为0到100的整数。

Output

一个整数。代表该学生在n门课中所得的总分。

Sample Input

3
100
99
100
Sample Output

299

program totalscore(input,output);
var tot,n,i:longint;a:array[1..5000]of longint;fin,fout:text;
begin
assign(fin,'ex.in');
reset(fin);
assign(fout,'ex.out');
rewrite(fout);
readln(fin,n);
for i:=1 to n do
begin
readln(fin,a[i]);
tot:=tot+a[i];
end;
writeln(fout,tot);
close(fin);
close(fout);
end.
例：
输入文件名ex.in
内容
2
99
89
输出文件名ex.out
内容
188

准确的说，一楼采用了文件输出，其实并不烦 竞赛什么的都要用文件输出~~~~ 改进了一下下 这么写可以稍微简单一些
var tot,n,i:longint;a:array[1..5000]of longint;fin,fout:text;
begin
assign(input,'ex.in');
reset(input);
assign(ouput,'ex.out');
rewrite(output);
readln(n);
for i:=1 to n do
begin
readln(a[i]);
tot:=tot+a[i];
end;
writeln(tot);
close(input);
close(outout);
end.
样例输入
2
99
89