В понеділок Толя позичив у Сергійка 2 цукерки із задоволенням їх з'їв. У вівторок він позичив у 2 рази більше цукерок, після чого віддав половину
боргу, а решту із задоволенням з'їв. Кожного наступного дня він позичав у 2
рази більше цукерок, віддавав з них цілу частину з половини боргу , а решту
з'їдав. Скільки цукерок з'їсть Толик та який у нього буде борг m на кінець n
дня?
Вхідні дані: - кількість днів
Вихідні дані К- кількість цукерок, які з'їв
m — борг цукерок​

робити в python

Процессор. Микропроцессор — основная микросхема персонального компьютера. Все вычисления выполняются в ней. Основная характеристика процессора — тактовая частота (измеряется в мегагерцах, МГц). Чем выше тактовая частота, тем выше производительность процессора. 
Оперативная память. Оперативную память можно представить как обширный массив ячеек, в которых хранятся числовые данные и команды в то время, когда компьютер включен. Объем оперативной памяти измеряется в миллионах байтов — мегабайтах (Мбайт).
Монитор — устройство для визуального воспроизведения символьной и графической информации. Служит в качестве устройства вывода.
Принтер  — это внешнее периферийное устройство компьютера, предназначенное для вывода текстовой или графической информации, хранящейся в компьютере, на твёрдый физический носитель, обычно бумагу
Сканер— это устройство ввода, которое, анализируя какой-либо объект (обычно изображение, текст), создаёт цифровую копию изображения объекта. Процесс получения этой копии называется сканированием.
Веб-камера — малоразмерная цифровая видео- или фотокамера в реальном временификсировать изображения

Const
    handsfree = true;

var
    a: array[1..100] of real;
    i, n: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;

    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i]:3, ' ');
        end
        else readln(a[i]);
    end;
    writeln();

    {изменение элементов}
    for i := 1 to n do
    begin
        if a[i] < 0 then
            a[i] := abs(a[i]);
        write(a[i]:3, ' ');
    end;
end.