Фраза для поворотной решётки информатика желательно с примером​

//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7

1}

Саша: «Я никогда не призывал к прогулу {ЛОЖЬ}, это была идея Коли {ЛОЖЬ}».

Коля: «Я никогда не предложил бы это первым{ПРАВДА}, во всем виноват Вова{ЛОЖЬ}».

Вова: «Эта идея пришла в голову Коле{ЛОЖЬ}. Я просто пошел за компанию{ПРАВДА}».

ОТвет: Зачинщик Саша.

2}

Допустим, первый болельщик ошибся насчёт Димы. Тогда:

Первый: «первым будет Дима{ЛОЖЬ}, а Миша будет вторым{ПРАВДА}»

Второй: «Катя займет четвертое место{ПРАВДА}, а второе место достанется Нине{ЛОЖЬ}»

Третий: «Катя займет третье место{ЛОЖЬ}, а на втором месте будет Дима{ПРАВДА}»

Это противоречит условию, потому что получается что второе место заняли сразу и Нина и Дима. Значит первый болельщик угадал, что Дима будет на 1-м месте:

Первый: «первым будет Дима{ПРАВДА}, а Миша будет вторым{ЛОЖЬ}»

Второй: «Катя займет четвертое место{ЛОЖЬ}, а второе место достанется Нине{ПРАВДА}»

Третий: «Катя займет третье место{ПРАВДА}, а на втором месте будет Дима{ЛОЖЬ}»

ОТвет: места распределились так: Дима 1-е, Нина 2-е, Катя 3-е, Миша 4-е

3}

Поскольку все назвали разные веса, то угадал только один. Значит двое других оба угадали материал. Это возможно только если гирька медная. Значит:

Алеша: «латунь{ЛОЖЬ}, 5 г{ПРАВДА}»

Витя: «медь{ПРАВДА}, 3 г{ЛОЖЬ}»

Игорь: «не латунь{ПРАВДА}, 4 г{ЛОЖЬ}».

ОТвет: медная гирька весом 5 г