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;