杭电的输入要判断文件结束
读数
var n: integer;
...
while not seekeof do
begin
read(n);
...
end;
读字符
var c: char;
...
while not eof do
begin
read(c);
...
end;
读字符串
var line: string;
...
while not eof do
begin
readln(line);
...
end;
详见杭电acm主页第一栏F.A.Q
P.S.新用一个OJ时最好先读一遍它的FAQ,了解它的提交规则,避免走许多弯路啊...
杭电支持free pascal吗?
那里的提交界面有没有pascal语言的选项?