Паскаль. написать программы, используя циклы while, repeat-until и цикл с параметром. 12. вычислить выражение y=x + x^2/2 + x^3/3

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var s:=ReadlnString('Введите двухзначное 16-ричное число');
  var mH:array['A'..'F'] of integer:=(10,11,12,13,14,15);
  if s.Length=1 then s:='0'+s;
  var c:=s.ToCharArray;
  var n:=0;
  for var i:=0 to 1 do
    case c[i] of
    '0'..'9':n:=16*n+StrToInt(c[i]);
    'A'..'F':n:=16*n+mH[c[i]];
    else begin
      Writeln('Недопустимый символ: ',c[i]);
      Exit
      end
    end;
  Writeln('Десятичный эквивалент: ',n)
end.

Тестовое решение:
Введите двухзначное 16-ричное число 3A
Десятичный эквивалент: 58

Объем звукового файла равен произведению характеристик.
32000 гц * 4 байт * 120 секунд * 4 канала = 1000 * 2^5 * 2^2 * 120 * 2^2 = 120000 * 2^9 = 60000 * 2 * 2^9 = 60000 * 2^10 байт

Чтобы перевести в мегабайты, нужно два раза разделить на 1024

(60000 * 2^10)/(1024*1024) = 60000/1024

Так как нужно примерное время, можем 1024 принять за 1000, то есть получается ~60 Мб.

2. Комбинаторика. Слова состоят из пяти букв, буква Х может быть либо на последнем месте, либо её нет вообще

Х

Каждая оставшаяся звездочка принимает одно из оставшихся трёх значений. Для первого случая количество слов будет равно 3^4 = 81, для второго 3^5 = 243. Общее количество слов равно
81+243 = 324