begin
var a: array of string[6] :=
('ноль', 'один', 'два', 'три', 'четыре',
'пять', 'шесть', 'семь', 'восемь', 'девять');
var n := Seq(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
foreach var x in n do Println(x, a[x])
end.
begin
var a: array of string[6] :=
('ноль', 'один', 'два', 'три', 'четыре',
'пять', 'шесть', 'семь', 'восемь', 'девять');
var n := Seq(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
foreach var x in n do Println(x, a[x])
end.