Помогите написать блок схему к следующей программе!

program chetire;
uses crt;
var d,m,g,day:integer;
begin
writeln('Вы не сможете привысить лимит дней, месяцев!');
writeln('Поэтому соблюдайте правильность ввода!');
write('Дата/');
repeat
read(d);
until (d>0) and (d<=31);
write('Месяц/');
repeat
read(m);
until (m>0) and (m<=12);
write('Год/');
repeat
readln(g);
until (g>0) and (g<=32767);
case m of
1,3,5,7,10,12: Day:=31;
4,6,9,11: Day:=30;
2: if (g mod 4)=0 then Day:= 29
else day:=28;
end;
if d>day then
begin
writeln('Неверная дата!');
Writeln('Попробуйте снова!');
exit;
end;
case m<>12 of
true: case d<day of
true: d:=d+1;
false:
begin
d:=1;
m:=m+1;
end;
end;
false:case d<day of
true: d:=d+1;
false:
begin
d:=1;
m:=1;
g:=g+1;
end;
end;
end;
writeln('Следующий день наступит завтра ',d,'/',m,'/',g);
readln;
end.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.