Написать программу по информатике! дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. верно ли, что все элементы последовательности равны между собой?

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('длина последовательности: ');   var a: =(seqrandom(n-1,0,1)+(-; // последовательность 0 и 1   a.println;   if a.where(x-> x> =0).distinct.count> 1 then       writeln('есть отличающиеся элементы')   else writeln('все элементы равны') end. примеры длина последовательности:   4 1 1 1 -1 все элементы равны длина последовательности:   5 0 1 1 0 -1 есть отличающиеся элементы

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

60,111100,3c,74