Після футбольного матчу на кубок ліцею завгосп недорахував шибок у вікнах ліцею. на першому поверсі він недорахував х1 шибок, на другому — х2, на третьому — х3, на четвертому — удвічі більше, ніж на першому та другому разом, а на п’ятому — стільки, скільки всього вибили шибок на четвертому та першому поверхах. скільки всього шибок доведеться встигнути вставити завгоспу до понеділка?

Var
    x1, x2, x3: integer;

begin
    readln(x1, x2, x3);
    writeln(x1 + x2 + x3 + 2 * (x1 + x2) + x1 + 2 * (x1 + x2));
end.

Реализация на VBA Excell
Если есть офис, то можете запустить программу.
Код увидеть Alt+F11

Sub massiv()   
строка = 3 'не обязательно,номер строки для начала вывода на лист   
n = Cells(2, 3) 'не обязательно, вводим количество чисел   
Dim B(10000) As Integer 'резервируем память на 10000 целых чисел   
S = 0 'обнуляем сумму   
For i = 1 To n 'Начало цикла       
   k = Rnd(1) 'Генерируем случайное число в диапазоне (0;1)       
   k = k * 9 + 12 'Смещаем его в диапазон [12;20]       
   k = Int(k) 'обрезаем, оставляя целое       
   B(i) = k 'заполняем массив       
   S = S + k 'считаем сумму       
   Cells(строка, 3) = строка - 2 'не обязательно, вывод номера значеня              
   Cells(строка, 4) = k 'Не обязательно вывод значения       
   строка = строка + 1 'не обязательно, увеличить строку для вывода   
Next i 'Конец цикла   
Cells(строка, 3) = "сумма =" 'не обязательно, выводим надпись   
Cells(строка, 4) = S 'не обязательно, выводим сумму
End Sub

См. картинку во вложении.
ответ: 1

Такие задания решаются с трассировочной таблицы.
Выписываешь все переменные, которые есть в программе (если массив, то отдельно выписываешь каждую ячейку). Сколько переменных - столько столбцов в таблице. Потом притворяешься компьютером и выполняешь программу команда за командой, при этом записывая все изменения значений переменных по такому правилу:
1) если значение переменной ещё не определено, ничего не пишешь (оставляешь пустые клетки);
2) если значение переменной изменилось в ходе выполнения команды - пишешь новое значение (в моей таблице выделены жёлтым);
3) если значение переменной НЕ изменилось в ходе выполнения команды - пишешь старое значение (то есть переписываешь его из клетки, которая на одну выше).
В конце смотришь, значение какой переменной должен напечатать компьютер - это и есть ответ.