with simple_io, gnat.directory_operations;
use simple_io, gnat.directory_operations;

procedure creation_attribut is
fichier : file_type;
nomattribut : string(1..10):= (others => ' ');
L : Integer;
begin

PUT("saisir le nom de l attribut a creer :");
get_line(nomattribut, L);
create(fichier,out_file, nomattribut);


Close(fichier);

end maketablev2;