Помогите пожалуйста сделать блок-схему по программе (найти дату следующего дня)

[Марфатри]

ПО ПРОГРАММЕ ПОМОГИТЕ СДЕЛАТЬ БЛОК-СХЕМУ. ЕСЛИ ЧТО, ЗАДАНИЕ ПРИКРЕПЛЕНО!

Program laba2;
var d,m,y:integer;
begin
write('Введите через пробел день,месяц,год->');
readln(d,m,y);
if(d=28) and (m=2) then
if(y mod 4=0) and ((y mod 400=0) or (y mod 100<>0)) then d:=29
else begin
d:=1; m:=3
end
else begin
d:=d+1;
if(m in[1,3,5,7,8,10,12]) and (d=32) then
begin
d:=1; m:=m+1;
if m=13 then
begin
m:=1; y:=y+1 end
end
else if d=31 then
begin
d:=1; m:=m+1
end
end;
writeln('Следующий день',d,'.',m,'.',y)
end.