function vis(y:integer):boolean;
begin
if ((y mod 4=0) and (y mod 100<>0)) or (y mod 400=0) then
vis:=true
else vis:=false;
end;

function days(y:integer):integer;
begin
if vis(y) then days:=366
else days:=365;
end;


function monthday(m,y:integer):integer;
var d:integer;
begin
if m=2 then
if vis(y) then d:=29
else d:=28;
case m of
1,3,5,7,8,10,12: d:=31;
4,6,9,11: d:=30;
end;
end;


function daysfromfirstjanuar(d,m,y:integer):integer;
var i,sum:integer;
begin
sum:=0;
for i:=1 to m-1 do begin
sum:=monthday(i)+sum;
end;
sum:=sum+d;
daysfromfirstjanuar:=sum;
end;

function daysfromfirstyear(d,m,y:integer):integer;
var i,sum:integer;
begin
sum:=0;
for i:=1 to y-1 do begin
sum:=days(i)+sum;
end;
sum:=sum+daysfromfirstjanuar;
daysfromfirstyear:=sum;
end;

function daysbetween(d1,m1,y1,d2,m2,y2:integer):integer;
begin
daysbetween:=daysfromfirstyear(d2,m2,y2)-daysfromfirstyear(d1,m1,y1);
end;

function weekday2(d1,m1,y1,w1,d2,m2,y2:integer):integer;
begin
weekday2:=(w1+daysbetween(d1,m1,y1,d2,m2,y2)) mod 7;
end;

procedure month(m,y:integer);
begin

end;

var week:string;
begin
week:="ПН ВТ СР ЧТ ПТ СБ ВС";