begin
  var p := Rec('Петрова',18);
  Println(p, p.Item1, p.Item2);
end.