Переведите с Pascal на C++

[KONDR1996]

var
m, n, i : integer;
a : array [0..50] of longint;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
read(m,n);
for i:=0 to m-1 do a[i]:=1;
for i:=m to n do
a[i]:=a[i-1]+a[i-m];
write(a[n])
end.

[Stilet]

FILE* q=fopen("input.txt","r"),w=fopen("output.txt","w")
int m,n,i,a[50];
fscanf(q,"%d %d",&m,&n); fclose(q);
for(i=0;i<m;i++) a[i]=1;
for(;i<n;i++) a[i]=a[i-1]+a[i-m];
fprintf(w,"%d",a[n-1]); fclose(w);

Если не ошибаюсь.