uses crt;
var a,i:integer;
f:text;
begin
ClrScr;
Writeln('Vvedite elemnti: ');
Assign(f,'f.txt');
Rewrite(f);
repeat
Readln(a);
Write(f,a,' ');
until a=0;
close(f);
Reset(f);
while not eof(f) do
begin
Read(f,a);
Write(a,' ');
end;
close(f);
Readln;
end.