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