(x>0) and (y>0) and (z>0)
begin
var a := SeqGen(15, i -> i + 1).ToArray; a.Println;
{если нужно вводить вручную, закомментируйте вторую строку
и раскомментируйте пятую}
// var a := ReadArrInteger(15);
Swap(a[0], a[4]);
Swap(a[9], a[14]);
a.Println;
end.
5
так как тут цифры 1 2 3 4, а все сс начинаются с 0
0 1 2 3 4
5 цифр значит 5-ти значная сс