Перевод с паскаля на си++

[dolphin-cv]

Здравствуйте, дорогие форумчане!!!
Помогите, пожалуйста, перевести программу с паскаля на си++

program ziyangshu;
uses crt;
const size=25;
var a:array[0..2,0..size] of integer; i,k,m,n:integer;
begin clrscr;write('Input then n:');readln(n);k:=1;
for i:=0 to n div 2 do
begin a[1,2*i]:=k;k:=k+1;
if ((i=n div 2)and(n mod 2=1)or(i<n div 2)) then
begin a[0,2*i+1]:=k;k:=k+1; a[2,2*i+1]:=k;k:=k+1; end;
end;
if n mod 2=1 then begin a[1,n+1]:=k;k:=k+1;m:=n end
else m:=n+1;
writeln(m);
for i:=0 to n div 2 do
begin a[1,m-2*i]:=k;k:=k+1; writeln(1,' ',m-2*i,' ',k);
a[0,m-2*i-1]:=k;k:=k+1; a[2,m-2*i-1]:=k;k:=k+1;
end;
write(' ':3);
for i:=1 to n do write(a[0,i]:3);writeln;
for i:=0 to n+1 do write(a[1,i]:3);writeln;write(' ':3);
for i:=1 to n do write(a[2,i]:3);writeln;
end.

[WorldMaster]

А своей головой подумать??? Тут даже с гуглом минут на 10 работы.