[33 / 8] = 4
33 - 4*8 = 1
Десятичное 33 в восьмеричном представлении = 41
Пара друзей
Банка чая
Лесные ягоды
Шоколадная конфета
var
N, S: Integer;
begin
WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');
S := 0;
repeat
ReadLn (N);
if (N mod 6 = 0) and (N mod 10 = 6) then
S := S + N;
until N = 0;
WriteLn ('Сумма = ', S);
end.