Можете сделать 7 в excel и файлом мне скинуть, не пойму как её решать, вроде через параметры и поиск решения. можете за 2 часа успеть

Предположим, оля сказала правду.тогда петя, игроь и ваня соврали. получили трех врунов, а по условию их два. значит, оля врет.  предположим, лена сказала правду. тогда петя и игорь соврали. получили двух врунов. то есть в этом случае оля сказала правду. но тогда соврал еще и ваня, потому что он сказал, что это не петя. то есть опять три вруна, что противоречит условию.  значит, лена тоже врунья.  имеем: оля и лена соврали, остальные сказали правду. значит, петя прав. то есть, это оля.

Var   i, n: integer;   s: byte;   arr: system.collections.generic.list< integer> : = new system.collections.generic.list< integer> ();     begin   write('enter a number of values: ');   readln(n);   for i : = 0 to (n - 1) do   begin     arr.add(random(-50, 50));     write(string.format('[{0}] => {1}; ', i, arr[i]));     if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then       s += 1;   end;   writeln(system.environment.newline, '> ', s); end.