Пожалуйста посчитайте,пожалуйстаНужно составить программу к этому заданию в Паскаль

Var

n, s10 : integer;

s8, s : string;

begin

write('Напишите число в 10 ном: ');

readln(s10);

while s10<>0 do

begin

n : = s10 mod 8;

str (n , s) ;

s8 : = s + s8 ;

s10 := s10 div 8;

end;

write(' в 8 ном будет:’, s8);

end.