package Per is

   type Person is tagged 
	record
		Name: String(1..30):= "                              ";
		Age: Integer :=0;
		Gender: String(1..10) := "          ";
	end record;
 
 procedure print(Self : in out Person);

end Per;