1)Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных десяти. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000.

2) Напишите эффективную программу, которая по двум данным натуральным числам х и у, не превосходящим 10000, выводит на экран и подсчитывает количество натуральных чисел, кратных восьми, на отрезке [х,у] (включая концы отрезка).

Напишите пожалуйста на языке Паскаль.

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!№1begin  ReadSeqIntegerWhile(t->t<>0).Where(t->t mod 10=0).Count.Printlnend.№2begin  var (x,y):=ReadInteger2; if x>y then Swap(x,y);  var d:=x mod 8;  x:= d=0 ? x : d>0 ? x+8-d : x-d ;  Range(x,y,8).Println.Count.Printlnend.Пример-50 50-48 -40 -32 -24 -16 -8 0 8 16 24 32 40 4813