PascalABC

[Вадяя]

По той причине, что на этом форуме куча псевдопрограммистов , я прошу вас написать в паскале прогу для перевода из 10-ой системы счисления в 8

Добавлено через 01:29 мин.
первая скопированная программа не считается , ибо там используются строки и другие операторы

[MaXi]

var n:longint;
 a:array[1..10] of byte;
 i:byte;
 begin
 readln(n);
 i:=0;
 while (n>0) do begin
 inc(i);
 a:=n mod 8;
 n:=n div 8;
 end;
 for n:=i downto 1 do write(a[n]);
 readln();
 end.