Перевести в паскале число из десятичной в восьмеричную

Question

Перевести в паскале число из десятичной в восьмеричную

Answer 1

Var
ch, mo, di: longint;
otvet, s: string;
begin
readln(ch);
otvet := '';
while ch <> 0 do
begin
di := ch div 8;
mo := ch mod 8;
str(mo, s);
otvet := s + otvet;
ch := di;
end;
writeln(otvet);
end.