6) Вводится последовательность чисел. Конец ввода – число >100. Определить количество четных чисел, а каждое нечетное возвести в квадрат.
7) Вводится последовательность чисел. Конец ввода – отрицательное число. Определить сумму цифр младших разрядов всех чисел, за исключением отрицательного.
8) Дано число. Вывести по отдельности все его цифры, определить их сумму, сумму только нечетных цифр, сумму старшего и младшего разрядов.

Все работает СПАСИБО

Постараюсь накопить еще балы на оставшееся задания.)

Пожалуйста. А как же оно могло не работать???

Эникей , есть такие люди которые просто пишут что угодно , но ты не такой в тебе я уже верю ,а скачал я версию 3.3

Когда пишут что угодно, потом модераторы это удаляю - вот и все...

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadSeqIntegerWhile(x->x<=100).ToArray;  Writeln('Количество четных чисел равно ',a.Where(x->x.IsEven).Count);  a.Transform(x->x.IsOdd?x*x:x); a.Printlnend.Пример35 24 38 83 110 Количество четных чисел равно 21225 24 38 6889begin  Writeln('S=',ReadSeqIntegerWhile(x->x>=0).Select(x->x mod 10).Sum)end.Пример16 24 19 21 45 0 23 -21S=28begin  var n:=ReadInteger('n=');  var St:=new Stack <integer>;  while n>0 do begin    St.Push(n mod 10);    n:=n div 10    end;  var a:=St.ToArray;  a.Println(',');  Writeln('Сумма цифр: ',a.Sum);  Writeln('Сумма нечетных цифр: ',a.Where(x->x.IsOdd).Sum);  Writeln('Сумма старшего и младшего разрядов: ',a.First+a.Last);end.Примерn= 532142125,3,2,1,4,2,1,2Сумма цифр: 20Сумма нечетных цифр: 10Сумма старшего и младшего разрядов: 7