Program P91;
 { Eroare }
type FisierNumere=file of integer;
var FN : FisierNumere;
     i : integer;
     r : real;
     s : string;
begin
 Writeln('Daţi numele fişierului de creat:  ');
 readln(s);
 assign(FN, s);
 rewrite(FN);
 i:=1;
 write(FN, i);
 i:=10;
 write(FN, i);
 r:=20;
 write(FN, r);
 close(FN);
end.