with ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
Use ADA.Text_IO, ADA.Integer_Text_IO,ADA.Float_Text_IO;
 
Procedure test Is

x : INTEGER :=10  ;
my_char  : Character  ;         --  Variable declaration for all types
my_float : Float      :=1.5  ;

Begin
put(" MahindraSatyam");
new_line;
put(" MahindraSatyam");
new_line;
put(" The value of xis ");
put(x,20);
new_line;
put(" The value of xis ");
put(x,2);
x := INTEGER'SIZE;
put(" value of x:");
put(x,2);

new_line;
Put(LONG_DOUBLE'SIZE);
Put(LONG_DOUBLE'FIRST);
Put("to")
put(LONG_DOUBLE'LAST);

new_line;
Put(LONG_LONG_FLOAT'SIZE);

new_line;
Put(LONG_FLOAT'SIZE);

new_line;
Put(FLOAT'SIZE);


End test;