Найти сумму целых положительных чисел вводимых по очереди, если вводится число 999, то программа выдает сумму введенных ранее значений.

Фраза "каждый из них не дал полностью правдивых показаний" мной понята, как указание о том, что одно из показаний правда, а другое - ложь.

Предположим, Брагин не виновен. Тогда его второе показание - ложь и Лиходеев виновен. Первое показание Лиходеева будет ложным, а второе истинным и т.е. получится, что Кургин не причем. Получается двое непричастных, что неверно. Следовательно, наше исходное предположение неверно и Брагин виновен.

Если Брагин виновен, его первое показание ложно, а второе истинно и Лиходеев также виновен.
Это не противоречит показаниям Лиходееева: его первое показание - ложь, второе истина: Кургин не причём.
Первое показание Кургина ложно, второе истинно. Это также подтверждается.

ответ: виновны Брагин и Лиходеев.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println;
Writeln('Двоек: ', a.Where(t-> t = 2).Count);
Writeln('Троек: ', a.Where(t-> t = 3).Count);
Writeln('Четверок: ', a.Where(t-> t = 4).Count);
Writeln('Пятерок: ', a.Where(t-> t = 5).Count);
Writeln('Средний за диктант: ', a.Average:0:2);
end.

Пример:
Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2
Двоек: 6
Троек: 8
Четверок: 3
Пятерок: 3
Средний за диктант: 3.15