Написать программу, которая подсчитывает сумму и количество чисел последовательности, делящихся на 8 без остатка. Размер последовательности определяет сам пользователь программы. Принять, что последовательность состоит только из целых положительных чисел.

хотя нельзя

program qq;var a, b, c, d, e:integer;BEGINd:=0;e:=0;writeln('Введите количество чисел');readln (a);writeln ('Введите числа');for b:=1 to a dobeginreadln (c);if c mod 8 = 0 thend:=d+c;e:=e+1;end;Writeln ('Количество чисел кратных восьми - ', e, '; Их сумма - ', d);END.

//PascalABC.NET//Версия 3.3, сборка 1627beginvar a:=ReadArrInteger(ReadInteger()).Where(x->x mod 8=0);write('кол-во чисел, делящихся на 8 без остатка: ',a.Count(),'; сумма: ',a.Sum());end.