Создание блока схемы Pascal

[Kingxq]

Срочно нужна помощь в создании блока схемы.
var a:integer;
b,c:real;
begin
writeln('ввести день');
readln(a);
if a>182 then
writeln('второе полугодие');
else
writeln('первое полугодие');
if a<91 then
writeln('первый квартал');
if (a>91) and (a<182) then
writeln('второй квартал');
if (a>182) and (a<273) then
writeln('третий квартал')
else
writeln('четвертый квартал');
b:=a div 30;
c:=a-(b*30);
writeln('месяцев',b:4:2);
writeln('дней',c:4:2);
end.

[BDA]

FCEditor Вам в помощь.

[Poma][a]

Срочно нужна помощь в создании блока схемы.

(пришлось шушуть пофлудить..)