13-е числа столетия с номером N

[dyachenco]

Помогите пожалуйста с задачкой на C или C++
вычислить количество пятниц, приходящихся на 13-е числа ХХ столетия с номером N , где N-данное натуральное число.
может кто-то уже встречался с такой???срочно надо

[dyachenco]

Вот нашол пример на паскале
...
procedure TForm1.Button1Click(Sender: TObject);
var
Wday:byte;
MyDate:TDate;
hist:array[1..7] of integer;
i:integer;
year,month:word;
begin
for i:=1 to 7 do hist[i]:=0;
for year:=2000 to 2399 do
for month:=1 to 12 do
begin
MyDate:=EncodeDate(year, month, 13);
Wday:=DayOfWeek(MyDate);
inc(hist[Wday]);
end;
for i:=1 to 7 do
Memo1.Lines.Add(inttostr(i)+' - '+inttostr(hist[i]));
end;
...

Получил результат:
1 - 687
2 - 685
3 - 685
4 - 687
5 - 684
6 - 688
7 - 684

[dyachenco]

#include <stdio.h>
#include <conio.h>
#include <math.h>
int main(void)

{
int m,y,c,s,n=0;

printf("Vvedite ctoletie\n");
scanf("%d",&c);
c--;
for(y=0; y<100; ++y)
for(m=1; m<=12; ++m)
{
s=fmod(((2.6*m-0.2)+13+y+fmod(y,4)+fmod(c,4)-2*c),7);
if (s==5) n++;
}
printf("V etom stoletie %d piatnitc 13",n);
getch();
}



Вот что получилось но поч не работает.