Из паскаля в С++

[Slake]

Помогите перевести вот это из паскаля в С++ пожалуйста

uses crt;
const n=8;
var a:array[1..n,1..n]of integer;
i,j,k,l:integer;
begin
clrscr;
k:=0;
for l:=2*n-1 downto 1 do
begin
if l>n then
begin
if odd(l) then
for i:=1 to 2*n-l do
begin
k:=k+1;
a[i,i+l-n]:=k;
end
else
for i:=2*n-l downto 1 do
begin
k:=k+1;
a[i,i+l-n]:=k;
end
end
else if l<=n then
begin
if odd(l) then
for i:=n-l+1 to n do
begin
k:=k+1;
a[i,i-n+l]:=k;
end
else
for i:=n downto n-l+1 do
begin
k:=k+1;
a[i,i-n+l]:=k;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln;
readln
end.