Напишите процедуру, которая выводит на экран переданное ей число в системе

var s1:string;

N,a:integer;

BEGIN

write('Введите число в 10-ой системе счисления: ');

readln(N);

write('Введите новое основание системы счисления: ');

readln(a);

s1:='';

while Nlt;gt;0 do begin

if N mod alt;=9 then s1:=inttostr(N mod a) + s1;

N:=N div a;

end;

write('Число в новейшей системе счисления: ');

writeln(s1);

end.