Помогите пожалуйста в информатикой!

Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех двузначных чисел, кратных 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0
(0 – признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число: сумму всех двузначных чисел, кратных 8.

var a,s:integer;beginread(a);while a<>0 do begin if (a>=10)and(a<=99)and(a mod 8 = 0) then s:=s+a; read(a); end;writeln(s);end.Пример:123 16 468 87 12 88 536 0104