Задачка на С++.

[Mi$ter]

Задачку написал на Паскале а на С++ перевести не могу потому как не знаю С++, помогите. Вообщем задачка простенькая(ну покрайне мере на Паскале так показалось) условие задачки:
Вывести на экран таблицу умножения в Р-ичной системе счисления (1<Р<20), значение Р запрашивается с клавиатуры.
Это текст програмки написанный на Паскале
Program T;
uses crt;
label 1;
const z:array[0..19]of char=('0','1','2','3','4','5','6',' 7','8','9','A','B','C','D','E','F', 'G','H','I','J');
var
i,x,p: integer;{index stroki}
j: integer;{index stolbca}
s:string;

begin
clrscr;
1:
writeln ('Bbedite ocHoBaHie');
readln(x);
if x>20 then goto 1;
clrscr;
writeln('tablica umnogeniya ',x,'-ri4noi sistemi s4isleniya');
writeln;
write('':3);
for j:=1 to x-1 do write(z[j]:3);
for i:=0 to x-1 do
begin
write(z[i]:3);
for j:=1 to x-1 do
begin
s:='';
p:=i*j;
Repeat {perevod v x-ichnyu cictemu}
s:=z[(p mod x)]+s;
p:=p div x;
Until p=0;
write(s:3);
end;
writeln;
end;

readln;
end.

[Dimon]

стучи в аську 198-012-696
помогу