Переведите число 345 в двоичную, восьмеричную и шестнадцатеричную с. сч.

Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая: program futbol; var fio: array [1..25] of string;         gol: array [1..25] of integer;         i,j: integer;         f: string; begin     writeln ('введите фамилии игроков, забивших голы');     writeln ('окончание ввода - пустая строка');     j: =0; repeat       readln(f)     newfio: =true;     for i: = 1 to j do begin         if fio[i]=f then begin               gol[i]=gol[i]+1;                 newfio: =not newfio;               end;         if newfio then begin             j: =j+1;             fio[j]: =f;     end; while not f=''; for i: = 1 to j do begin   if gol[i]> 2 then writeln fio[i]; end; end.

Var i, k, n, j, z, x: integer; b, c, d: array[1..10000] of integer; a, e: array[1..10000] of string; m: string; begin readln(n); for i: =1 to n do readln(a[i]); readln(b[i]); readln(c[i]); for i: =1 to n do for j: =1 to n do if b[i]< b[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]);   {это сортировка по тиражу} for i: =1 to n do begin e[i]: =copy(a[i], 1, 2); {тут расчет на то, что название начинается с заглавной буквы алфавита} val(e[i], d[i]); end; for i: =1 to n do for j: =1 to n do if d[i]< d[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]); {сортировка по тиражу} readln; end.