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

var s1:string;

N,a:integer;

BEGIN

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

readln(N);

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

readln(a);

s1:='';

while N<>0 do begin

if N mod a

N:=N div a;

end;

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

writeln(s1);

end.

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