ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ ПЕРЕВОДА ИЗ 10 сс в 8 сс

[cadilack]

ОЧЕНЬ НАДА, НЕ ЗНАЮ ЧТО ДЕЛАТЬ СКОРО СДАЧА((((

[mihali4]

Бегом на сайт Клуба программистов - там про это море разливанное...
Ссылка внизу каждой страницы форума, так и называется - "Клуб программистов Delphi".

[cadilack]

блин хз что то не могу найти конкретно мою тему((

[6aJIaJIae4HUK]

uses crt;
var
n,i:integer;
o,s:string;
begin
clrscr;
write(' -> ');
readln(n);
o:='0123456789';
s:='';
while n>0 do
begin
i:=n mod 8;
s:=o[i+1]+s;
n:=n div 8;
end;
writeln(s);
readln;
end.