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,973:
d := DaysInMonth(m, y);
w := DayOfWeek(m, d, y);
{
if w >= k then
else
end;
|