Программирование.Создание блок схемы по математическому примеру

А ты что взамен

Программа на Паскале:

const a:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var d,m:integer;
begin
write('D M: '); readln(d,m);
if d=a[m] then writeln('D=',1,' M=',m mod 12+1)
else writeln('D=',d+1,' M=',m);
end.

А параллелограммики рисуй сам, это задание для детского сада :)