doc file b1

program aa;
uses crt;

var f:text;
var i:integer;
a:array[1..100] of integer;

begin
clrscr;
assign(f, 'songuyen.dat');
reset(f);
for i:=1 to 10 do
read(f, a[i]);

for i:=1 to 20 do
begin
write(a[i]);
if i mod 10 = 0 then writeln();
end;close(f);
readln;
end.