Перевод с Паскаля на СИ

[RuslanShar]

Перевод с Паскаля на СИ

Помогите перевести в с++

uses crt,graph;
const nmax=15;
var x,y,r1,r2,n,i,r,dr,b:integer;
c:array[1..nmax] of integer;
m:set of byte;
begin
clrscr;
repeat
write('Minimalnyj radius ot 5 do 30 r1=');
readln(r1);
until r1 in [5..30];
repeat
write('Maximalnyj radius ot 150 do 230 r2=');
readln(r2);
until r2 in [150..230];
repeat
write('Kolichestvo voln ot 1 do ',nmax,' n=');
readln;
until n in [1..15];
writeln('Введите порядок цветов от 1 до 15:');
m:=[];
for i:=1 to n do
begin
repeat
write('cv[',i,']=');
readln(c);
until(c in [1..15])and not(c in m);
m:=m+[c];
end;
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
dr:=round((r2-r1)/(n-1));
r:=r1;
repeat
for i:=0 to n-1 do
begin
setcolor(c[i+1]);
circle(x,y,r);
r:=r+dr;
end;
delay(1000);
b:=c[n];
for i:=n downto 2 do
c:=c[i-1];
c[1]:=b;
r:=r1;
until keypressed;
end.