Переведите число в десятичную систему счисления: 15а16

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

прости что не решила