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

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

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

1.program qwerty;var i, n:integer;BEGINn:=0;readln (i);while i<>0 dobeginif i mod 10=0 thenn:=n+1;readln (i);end;writeln (n);END.