Написать программу(паскаль) и блок - схема.

Var s,n:integer;

Begin

write('Введите число: ');readln(n);

s:=0;

While n<>0 do

Begin

if n mod 10 mod 2 = 0 then

s:=s+n mod 10;

n:=n div 10;

End;

if s<>0 then writeln('Сумма четных цифр: ',s)

else

writeln('Нету четных цифр в числе');

readln;

End.

1. Разобьем условие на части, чтобы было нагляднее.
в числе меньше восьми цифр "И"
     [число кратно 3 "ИЛИ"
          (число содержит 2 "И" число кратно 5)]

2. Условие "в числе меньше восьми цифр" связано с остальной частью выражения по "И", следовательно, оно обязательное и все, что ему не удовлетворяет, должно быть отброшено вместе с этим условием.
Варианты 4) и 6) содержат 8 цифр и отбрасываются.

3. число кратно 3
    "ИЛИ"
          число содержит 2
          "И"
          число кратно 5
Если варианты "число кратно 3" есть, мы их выбираем, а это условие отбрасываем.
Кратны трем числа 1) 69 2) 12 и 7) 15.

4. Остались числа 3) 25, 5) 22 и 8) 55.
Проверяем их на условие
число содержит 2
"И"
число кратно 5
Содержат двойку 3) 25 и 5) 22, но лишь 25 кратно 5 - его и оставляем.

ответ: 1) 2) 3) 7)

Вот программа с елкой: 
Uses GraphABC; 
Begin 
SetWindowSize(600,400); 
line(250,100, 300,50); 
lineto(350,100); 
lineto(250,100); 
floodfill(300,70, clgreen); 
line(220,200, 300,100); 
lineto(380,200); 
lineto(220,200); 
floodfill(300,150, clgreen); 
line(200,300, 300,200); 
lineto(400,300); 
lineto(200,300); 
floodfill(300,250, clgreen); 
rectangle(290, 300,310, 320); 
floodfill(300,305, clbrown); 
line(0, 300, 100, 350); 
lineto(200, 320); 
lineto(400, 320); 
lineto(600, 370); 
lineto(600,400); 
lineto(0,400); 
lineto(0,300); 
end.