Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех двузначных чисел,кратных 8. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-признак окончания ввода, не входит в последовательность.программа должна вывести одно число: сумму всех двузначных чисел, кратных 8.
var i,x,s:longint;
begin
read (x);
s:=0;
while x <> 0 do
begin
if (x>9) and (x<100) and (x mod 8 = 0) then s:=s+x;
read (x);
end;
write (s);
end.