Написать программы с циклами:1. вводится натуральное число. найти сумму шести цифр, кратных шести, входящих в его состав

Ну, для начала можно составить табличку. 
Десят. - Восьм. - Шестн
0-000-0000
1-001-0001
2-010-0010
3-011-0011
4-100-0100
5-101-0101
6-110-0110
7-111-0111
Далее, в восьмеричной максимальное число 7, поэтому буду сразу писать шестн.
8-1000
9-1001
A-1010
B-1011
C-1100
D-1101
E-1110
F-1111
Итак, когда у нас есть двоичное значение каждых чисел, выполняем перевод:
726=111010110
Теперь справа налево, выделяем по 4 цифры, и смотрим в таблицу :
0110 - 6
1101 - D
0001 - 1 ;
У нас получилось так :
726=111010110=1D6
Вроде, понятно объяснил :)

 program summa;
 var a:= 0;
 var b:= 0;
 begin
  writeln('Введите число');
   readln(a);
   if a>0 then  
    repeat {повторяй}
      a:= a+b;
   writeln('Введите еще число');
   readln(b);  
   until (b<0); {до тех пор, пока условие не будет истинным}
     writeln('Было обнаружено отрицательное число');
        if a>0 then 
     writeln('Полученная сумма: ',a)
     else writeln('Отрицательное число было первым');
     readln;
 end.
Программа на выходе сообщает:
Введите число
3
Введите еще число
45
Введите еще число
9
Введите еще число
-8
Было обнаружено отрицательное число
Полученная сумма: 57