Системы счисления и функция random

[hanower]

Многократно случайным образом определяется 1<=N<=32767. Для всех N вывести N_3,N_5,где N_3 и N_5 значение N в троичной и пятеричной системах счисления. Результат - таблица.

Вот кусок сделал, а в системы счисления не получается чёт=)
program z;
uses crt;
var n,i,k:integer;
begin
clrscr;
randomize;
writeln('vvedite kollichestvo slychainblx n');
readln(k);
for i:=1 to k do begin
n:=trunc((32767-1)*random+1);
writeln(n);
end;
end.
Помогите пожалуйста!

[[CODER]]

давно не писал на паскале. Вобщем принцип перевода таков

cc:=2;  ///  cc - двоичная система счисления, может быть любая другая(меньшая 10)
while(a>0)
begin
write (a mod cc)
a:=a/cc;
end;

[hanower]

большое спасибо

[Google2010]

только не

a:=a/cc;

a

a:= a div cc;

[[CODER]]

Сообщение от Google2010

только не

a:=a/cc;

a

a:= a div cc;

Не обязательно, можешь проверить прогнав пару примеров моим способом и своим.

[hanower]

Забыл вот тру прога:

program speczad;
uses crt;
const
lol='0123456789';
a:array[1..2] of byte=(3,5);
var t,n1,i,f,j,k,c,n:integer;b:array[1..2] of string;
st:string;h:string[1];
begin
clrscr;
randomize;
writeln('vvedite kollichestvo slychainblx n');
readln(k);
for i:=1 to k do
begin
n:=random((32767-1)+1);
writeln(i,' chislo - ',n);
f:=n;
for j:=1 to 2 do
begin
n:=f;
st:='';
while (n>0) do
begin
c:=n mod a[j];
n1:=n div a[j];
n:=n1;
h:=copy(lol,(c+1),1);
insert(h,st,1);
b[j]:=st;
end;
end;
writeln('|---------------------------------------------------------|');
writeln('|------10--------------',a[1],'---------------',a[2],'-----------------|');
writeln('|---------------------------------------------------------|');
writeln(' ',f,' ',b[1],' ',b[2],' ');
writeln('|---------------------------------------------------------|');
writeln('|---------------------------------------------------------|');
readln;
end;
end.