Программирование на языке pascal 5.17(д)
Використовувати цикл з перед- або післяумовою.
голова уже кипит, нужна
заранее

first_num = int(input())

second_num = int(input())

third_num = int(input())

sum = 0

if (first_num > -1):

   sum += first_num

if (second_num > -1):

   sum +=second_num

if (third_num > -1):

   sum += third_num

print(sum)

Объяснение:

first_num = int(input())  // Объявление + ввод первой переменной

second_num = int(input())  // Объявление + ввод второй переменной

third_num = int(input())  // Объявление + ввод третьей переменной

sum = 0  // Объявление переменной, которая будет хранить сумму

if (first_num > -1):  // Если первый элемент положительный

   sum += first_num  // Сумма = сумма + первое число

if (second_num > -1):  // Если второй элемент положительный

   sum +=second_num  // Сумма = сумма + второе число

if (third_num > -1):  // Если третий элемент положительный

   sum += third_num  // Сумма = сумма + третье число

print(sum) // Вывод суммы

Алфавит у нас состоит из трех букв (Б,У,М). Длина ряда 4 буквы. Количество возможных слов вычисляется по формуле N^m(н в степени м), где N - это длина алфавита, а m - длина ряда. Получаем 3^4=81. Дальше нужно исключить случаи, когда Есть три идущие буквы подряд, рассмотрим все случаи. 
1.Когда все буквы в слове одинаковые (, , );
2.Когда есть три буквы одинаковые (БББУ,УБББ,БББМ,МБББ, БУУУ,УУУБ,МУУУ,УУУМ,МММБ,БМММ,УМММ,МММУ.).
Тобишь всего исключений 12+3=15.
Вычитаем из количества всех вариантов 81-15=66.
ответ:66 различных слов.