灵异！！！！！！！！！！！ [复制链接]

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怎么用？？？？？？？？？？？？？？大牛来帮忙！！