Турбо паскаль - нужна помощь

[oxygen2007rus]

Нужна помощь в курсовой. Задание - сделать программу, моделирующую умножение 2-х чисел в Р-ичной системе счисления. Фишка в том, что умножение у меня худо бедно есть, а вот Р-ичной системы нет.
Планирую сделать 2 варианта программы - если числа в одной системе (практически уже есть) и в разных (с выбором системы, переводом чисел в одну систему и выводом ответа в разных системах. Никто не напомнит, как переводятся числа в Паскале из одной системы в другую? Заранее спасибо!

Пока кидаю первый вариант программы. Ловите програмный код:

Program krust15;
Var a,b,c: integer;
begin
writeln('enter 2 numbers (space required)');
Readln(a, b);
c:=a*b;
writeln('the composition is', c);
readln
end.

[Zempery]

из десятичной в двоичную

program DectoOct;
uses crt;
function DecToOct(s:string):string;
var i,g,b,l,c:longint; code:integer;
st:string;
begin
st:='';
val(s,c,code);
if c>1 then
begin
while (c>1) do
begin
b:=trunc(c/8);
g:=b*8;
l:=c-g;
c:=b;
begin
str(l,s);
st:=st+s+'';
c:=b;
end;
end;

begin
str(b,s);
st:=st+s;
end;
for i:=length(st) downto 1 do
begin
write(st[i]);
end
end;

end;

var s:string;
begin
clrscr;
write('Vvedite desytichnoe chislo--> ');
readln(s);
writeln('Vosmerichnoe chislo --> ',DecToOct(s));
writeln;

readln;
end.

[Zempery]

то есть в восьмиричную

[Zempery]

из 8 в 10:

PROGRAM Natasha;
uses crt;
function OctToDec (s:string):string;
var code,c,i,j,L,g:integer; st,s1:string;O:real;
begin
g:=0;
J:=0;
j:=length(s);
j:=j-1;
for i :=1 to length(s) do begin
ST:='';
st:=st+s[i];
val(st,c,code);
o:=trunc(exp(J*LN(8)));
J:=J-1;
L:=trunc(o);
g:=g+(L*C);
END;
str(g,s1) ;
writeln('Desyatichoe chislo --> ',s1);
END;
var s:string[10];
begin
clrscr;
write('vvedite vosmirchnoe chislo --> ');
readln(s);
writeln(OctToDec(s));

write('vvedite vosmirchnoe chislo --> ');
readln(s);
writeln(OctToDec(s));

write('vvedite vosmirchnoe chislo --> ');
readln(s);
writeln(OctToDec(s));

write('vvedite vosmirchnoe chislo --> ');
readln(s);
writeln(OctToDec(s));

write('vvedite vosmirchnoe chislo --> ');
readln(s);
writeln(OctToDec(s));

readln
end.

[oxygen2007rus]

и я так понимаю, что аналогично и с другими сс?

[Zempery]

из 10 в 2

program ;
uses crt;
function perevod(c:integer):word;
var i,g,b,l:longint;
st,s:string;
begin
write('вве дите десятичное число-->>>');
st:='';

if (c<0) then
         begin
              c:=abs(c);
                        end;
while (c>1) do
begin
b:=trunc(c/2);
g:=b*2;
l:=c-g;
str(l,s);
st:=st+s+' ';
c:=b;
end;
str(c,s);
st:=st+s;
for i:=length(st) downto 1 do begin
write(st[i]);
end;
readln;
end;
var c:integer;
begin
clrscr;
write('двоичное число--->>');
readln(c);
writeln(perevod(c));
end.