var
n,i:integer;
f:text;
begin
assign(f,'kot.txt');
rewrite(f);
readln(n);
for i:= 1 to n do
writeln(f,random(50));
close(f);
assign(f,'kot.txt');
reset(f);
while not eof(f) do begin
readln(f,i);
write(i, ' ');
end;
end.
var
n,i:integer;
f:text;
begin
assign(f,'kot.txt');
rewrite(f);
readln(n);
for i:= 1 to n do
writeln(f,random(50));
close(f);
assign(f,'kot.txt');
reset(f);
while not eof(f) do begin
readln(f,i);
write(i, ' ');
end;
end.