Var s,k: integer; Begin s := 132; for k := -2 downto 5 do s := s-7; writeln(s); End.

Начнем с того, что будем считать, что первое утверждение первого эксперта - правда. Тогда четвертый эксперт говорит нам о том, что 2 место будет у Италии. Тогда пятый эксперт вводит нас в полный конфуз, т.к оба его заявления - ложь. Следовательно нужно начать заново, и принять второе заявление первого критика как истину. Украина на 3 месте. Тогда по заявлению второго критика мы узнаем что германия - на 4 месте. Третий критик говорит нам о том, что Китай НЕ может стать первым. Пятый критик говорит, что Италия - 5я. Четвертый, что Россия - 1я. Следовательно, Китай - 2й.
1-Россия
2-Китай
3-Украина
4-Германия
5 -Италия

Составим таблицу, где по горизонтале расположим страны, по вертикали номера высказываний, а в середине места, которые могут занять команды по мнению экспертов.

               Г             И               К             Р              У

1.                                             1                             3

2.            4                                                              5

3.            4                               1

4.                            2                             1

5.            1              5

 

Если мы предположим в первом высказывании, что правда - это Китай на 1 месте, то проследив дальше, мы столкнемся, что украина и италия должны быть одновременно на 5, а этого быть не может.

Тогда предполагаем, что в первом высказывании верно утверждение - украина на 3 месте и все выстраивается:

1 место - Россия, 2 место - Китай, 3 место - Украина, 4 место - Германия, 5 место - Италия.