25 lines
546 B
Ada
25 lines
546 B
Ada
with persons; use persons;
|
|
with Ada.Strings.Unbounded;
|
|
with Ada.Text_IO;
|
|
|
|
package poles is
|
|
package su renames Ada.Strings.Unbounded;
|
|
package to renames Ada.Text_IO;
|
|
|
|
type pole is new persons.person with private;
|
|
|
|
function get_pesel(This: pole) return su.Unbounded_String;
|
|
procedure set_pesel(This: out pole; val: su.Unbounded_String);
|
|
overriding procedure greet(This: pole);
|
|
|
|
private
|
|
|
|
type pole is new persons.person
|
|
with
|
|
record
|
|
pesel: su.Unbounded_String;
|
|
end record;
|
|
|
|
|
|
end poles;
|