Напишите программу, которая в последовательности целых чисел определяет количество двузначных чисел, кратных 8. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество двузначных чисел, кратных 8. Пример работы программы:
Входные данные

8

16

77

0

Выходные данные

1

x = int(input())

k = 0

while x != 0:

   if (9<x<100) and (x%8==0):

       k+=1

   x = int(input())

print(k)

Если язык программирования Pascal ABC:

program pizza;

var b, c, d, i:integer;

const N=1000;

var  A: array [1..N] of integer;

begin

 d:=0;

   for i:=1 to N do begin

     readln (b);

     if b<>0 then

       if abs(b)<>30000 then

       A[i]:=b;

      if b=0 then

        break;

      if abs(b)>30000 then

        c:=1

   end;

   for i:=1 to N do begin

     if A[i] mod 8 = 0 then

       if (A[i]>9) and (A[i]<100) then

         d:=d+1;

   end;

   if c=1 then

     writeln ('Было введено недопустимое число/числа.');

   if d>0 then

     writeln ('Кол-во двухзначных чисел, кратных 8:  ',d );

   if (d=0) and (c<>1) then

     writeln ('Чисел, удовлетворяющих условиям, не найдено.');

end.