Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в заданную систему счисления с любым основанием от 2 до 36. используйте процедуру. входные данные входная строка содержит целое число n и основание системы счисления b , разделённые пробелом. гарантируется, что 2 ≤ b ≤ 36 . выходные данные программа должна вывести представление переданного её числа n в системе счисления с основанием b . при записи чисел в системах с основанием большим 10 используются прописные латинские буквы.
примеры
входные данные
13 3
выходные данные
111
входные данные
-34 18
выходные данные
-1g

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

двоичная (10000), восьмеричная (20), шестнадцатеричная (10)

по формуле включений-исключений

35 = 24 + 18 + 12 - 5 - 10 - 8 + х

х = 4

чтобы понять формулу, надо нарисовать 3 круга которые имеют общую область пересечения