Program P96;
 { Asocierea fişierului FN co consola }
type FisierNumere=file of integer;
var FN : FisierNumere;
     i : integer;
begin
 assign(FN, 'CON');
 rewrite(FN);
 i:=1;
 write(FN, i);
 i:=2;
 write(FN, i);
 i:=3;
 write(FN, i);
 close(FN);
 readln;
end.