Блок-схема для оператора Case

[Black_butterfly]

Помогите составить блок-схему для программки(безумно простой),
вот код:
Program MyProg;
var
a:integer;
begin
Writeln('Введите число');
Readln(a);
Case a of
1:Writeln('1 книга');
2:Writeln('2 книги');
3:Writeln('3 книги');
4:Writeln('4 книги');
5:Writeln('5 книг');
6:Writeln('6 книг');
7:Writeln('7 книг');
8:Writeln('8 книг');
9:Writeln('9 книг');
10:Writeln('10 книг');
11:Writeln('11 книг');
12:Writeln('12 книг');
13:Writeln('13 книг');
14:Writeln('14 книг');
15:Writeln('15 книг');
16:Writeln('16 книг');
17:Writeln('17 книг');
18:Writeln('18 книг');
19:Writeln('19 книг');
20:Writeln('20 книг');
21:Writeln('21 книга');
22:Writeln('22 книги');
23:Writeln('23 книги');
24:Writeln('24 книги');
25:Writeln('25 книг');end;
End.
Заранее спасибо!

[ROMA2PVT]

с блок схемой не помогу а вот с оптимизацией да

Program MyProg;
var
a:integer;
begin
Writeln('Ââåäèòå ÷èñëî');
Readln(a);
Case a of
1,21:Writeln(a,' êíèãà');
2..4,22..24:Writeln(a,' êíèãè');
5..20,25:Writeln(a,' êíèã');
end;
End.