Last Friday of each month: Difference between revisions
m
→{{header|Pascal}}
Line 2,905:
=={{header|Pascal}}==
{{works with|Free Pascal}}
Using
<lang Pascal>
program LastFriday;
Line 2,963:
end;
{ return the calendar day of the last
{ specified weekday in
function LastWeekday(k : weekdays; m, y : integer) : integer;
var
Line 2,990:
begin
d := LastWeekday(Fri, m, y);
writeln(m:5,' ',d:5
end;
end.
|