Блок схема case =)

[ProgrammiST-_-]

Program zadacha_13;
uses crt;
var n:byte;
    st:string;
begin
clrscr;
repeat
write('Введите возраст от 20 до 69 n=');
readln(n);
until n in [20..69];
st:='';
case n div 10 of
2:st:='двадцать ';
3:st:='тридцать ';
4:st:='сорок ';
5:st:='пятьдесят ';
6:st:='шестьдесят ';
end;
case n mod 10 of
1:st:=st+' один ';
2:st:=st+' два ';
3:st:=st+' три ';
4:st:=st+' четыре ';
5:st:=st+' пять ';
6:st:=st+' шесть ';
7:st:=st+' семь ';
8:st:=st+' восемь ';
9:st:=st+' девять ';
end;
case n mod 10 of
1:st:=st+'год';
2..4:st:=st+'года';
else st:=st+'лет';
end;
writeln(st);
readln
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TinMan]

Чего-то я тут не вижу никакой блок-схемы.. Очки пора менять, наверное..

[ProgrammiST-_-]

я имел ввиду что помощь нужна построить по этому коду блок схему

[SVing]

TinMan отпиши пожалуйсто в личку , нужна твоя помощь