datoteke1

{
type
ime = file of tip;
dat1=file of integer;
var a,b,c:dat1;
assign (ime1, ime2)
assign(f,'prva.txt')
rewrite(ime)
reset(ime)
close(ime)

read(ime,lista)
seek(ime,broj)
filesize(ime)
seek((ime),filesize((ime))
filepos(ime)
truncate(ime)
erase(ime)
rename(ime)

}



program dat01;
type dat1= file of integer;
var n,i,j,k:integer;
f:dat1;


begin
assign(f,'prva.dat');
rewrite(f);

writeln('koliko brojeva unosite:');
readln(n);
for i:=1 to n do
    begin
        readln(k);
        write(f,k);
    end;
{close(f);
}reset(f);
//n:=5;
//for i:=1 to n do
repeat
        begin
        read(f,k);
        write(k,' ');
        end;
until(eof(f));
close(f);
readln;
end.