Здравствуйте решить. Закодувати число 1205. Розкодувати 110110, 1010101010

1205-1011011111

110110-2020

1010101010-1010011

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр