begin
  var a := ('Иванов',24);
  Println(a[0],a[1]);
  
  var b := ('Петров',17,1,11);
  Println(b.Item1,b.Item2,b.Item3,b.Item4);
end.