var f:array[1..100] of qword;
i:integer;
a:longint;
b:int64;
begin
assign(input,'a.in');
assign(output,'a.out');
reset(input);
rewrite(output);
for i:=1 to 10 do read(f);
for i:=1 to 10 do writeln(f);
close(input);
close(output);
end.

a.in
1
1
1
1
1
1
1
1
a.out
1
2
3
4
5
6
7
8
9
10
qword怎么用？？？？？？？？？？？？？？大牛来帮忙！！