10 lines
217 B
ObjectPascal
10 lines
217 B
ObjectPascal
// Ñîçäàíèå êîðòåæåé
|
|
uses System;
|
|
|
|
begin
|
|
var a := Tuple.Create('Èâàíîâ',24);
|
|
writeln(a.Item1,' ',a.Item2);
|
|
|
|
var b := Tuple.Create('Ïåòðîâ',17,1,11);
|
|
writeln(b.Item1,' ',b.Item2,' ',b.Item3,' ',b.Item4);
|
|
end. |