Начертить блок-схему нахождения фальшивой монеты из 9 монет .Именно блок-схему,а не решение.Решение знаю.

Если нужен САМЫЙ подходящий единственный ответ, то это ответ под цифрой 3.
Если же нужно перечислить ВСЕ подходящие варианты, то:

1. Редактирования графического изображения символов шрифта --- можно графический редактор с этой целью использовать.
2. Построение диаграмм -- с графического редактора можно нарисовать диаграмму, но не построить. Для построения диаграмм нужны аналитические пакеты программ.

3. Работы с графическими изображениями --- самый подходящий и точный ответ.
4. Создание графического образа текста -- с графического редактора можно создать графический образ текста.
5. Просмотра фоторгафий -- графич редактор не создан для этого, им не удобно,но, все таки, можно просматривать фотографии.

Var

День,месяц:byte;

Begin

Write('№ дня = ');ReadLn(День)

Var C: = 365 - День

Write('№ месяца = ');ReadLn(Месяц);

Case Месяц of

2:C:=C-31;

3:C:=C-59;

4:C:=C-90;

5:C:=C-120;

6:C:=C-151;

7:C:=C-181;

8:C:=C-212;

9:C:=C-243;

10:C:=C-273;

11:C:=C-304;

12:C:=C-334

End;

if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')

else

Case C mod 10 of

1:Write('До нового года остался ',C,' день');

2..4:Write('До нового года осталось ',C,' дня');

0,5..9:Write('До нового года осталось ',C,' дней')

End

End.