Нужно сделать блок схему(легкую) Опции

[akva]

Вот к этой задачке...Помогите пожалста людики....
Program ort;
Uses CRT;
type
vozrast=1..100;
var
n:vozrast;
begin
Clrscr;
Writeln('vvedite vozrast');
read(n);
case n of
1,21,31,41,51,61,71,81,91:Writeln('vam ',n, ' god');
5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100: Writeln('vam ',n ,' let');
else writeln('vam ',n, ' goda');
end;
readkey;
end.