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

Блин, а можешь на visual basic.net написать?

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Длина последовательности: ');  var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1  a.Println;  if a.Where(x->x>=0).Distinct.Count>1 then    Writeln('Есть отличающиеся элементы')  else Writeln('Все элементы равны')end.ПримерыДлина последовательности:  41 1 1 -1Все элементы равныДлина последовательности:  50 1 1 0 -1Есть отличающиеся элементы