Зклавіатури вводиться десяткове число м і основа системи числення від 2 до 9. напишіть програму, яка переводить число м у задану систему числення.

Program zvezda; uses graphabc;   begin setbrushcolor(clyellow); line(290, 111, 240, 190); line(240, 190, 171, 190); line(170, 190, 241, 250); line(241, 250, 209, 320); line(209, 320, 290, 289); line(290, 289, 369, 318); line(369, 318, 340, 248); line(340, 248, 410, 190); line(410, 190, 340, 190); line(340, 190, 289, 111);   line(289, 113, 289, 289); line(242, 249, 341, 190); line(340, 249, 242, 190); line(171, 191, 290, 220); line(291, 220, 411, 191); line(209, 319, 290, 222); line(290, 222, 369, 321);   end.

//pascal abc.net v3.1 сборка 1172 const   n=6; var   f,h: text;   i,maxi: integer;   ar: array[1..n] of real; begin   ar[6]: =real.minvalue;   assign(f,'text.txt');   rewrite(f);   for i: =1 to n-1 do   begin     readln(ar[i]);     if ar[i]> ar[6] then     begin       ar[6]: =ar[i];       maxi: =i;     end;   end;   ar[maxi]: =ar[maxi]/2;   writeln('f: ');   for i: =1 to n do   begin     write(f,ar[i],' ');     write(ar[i],' ');   end;   close(f);   writeln;   i: =0;   writeln('h: ');   assign(h,'text1.txt');   rewrite(h);   while i< n do   begin   i: =i+2;   write(h,ar[i],' ');   write(ar[i]: 4);   end;   close(h); end. пример ввода: 1 2 3 4 5 пример вывода: f: 1 2 3 4 2.5 5 h:   2   4   5