В классе 20 учеников писали диктант по русскому языку

§ 1.4 Обработка одномерных массивов целых чисел на языке Паскаль
Задание 9. В классе 20 учеников писали диктант по русскому языку. Напишите программу, подсчитывающую количество двоек, троек, четвёрок и пятёрок, полученных за диктант.

Программа на языке Паскаль:

program Zadacha9;
var
  grades: array[1..20] of integer;
  count2, count3, count4, count5, i: integer;
begin
  count2 := 0;
  count3 := 0;
  count4 := 0;
  count5 := 0;
  // Ввод оценок
  writeln('Введите оценки (2, 3, 4, 5) для 20 учеников:');
  for i := 1 to 20 do
  begin
    readln(grades[i]);
    case grades[i] of
      2: count2 := count2 + 1;
      3: count3 := count3 + 1;
      4: count4 := count4 + 1;
      5: count5 := count5 + 1;
    end;
  end;
  // Вывод результатов
  writeln('Количество двоек: ', count2);
  writeln('Количество троек: ', count3);
  writeln('Количество четвёрок: ', count4);
  writeln('Количество пятёрок: ', count5);
end.

Программа на языке Python:

# Инициализация списка для хранения оценок и счетчиков
grades = [0] * 20  # Список для хранения 20 оценок
count2 = 0  # Счетчик двоек
count3 = 0  # Счетчик троек
count4 = 0  # Счетчик четверок
count5 = 0  # Счетчик пятерок
# Ввод оценок
print('Введите оценки (2, 3, 4, 5) для 20 учеников:')
for i in range(20):  # Цикл для ввода 20 оценок
    grades[i] = int(input(f'Оценка ученика {i + 1}: '))  # Ввод оценки
    if grades[i] == 2:
        count2 += 1
    elif grades[i] == 3:
        count3 += 1
    elif grades[i] == 4:
        count4 += 1
    elif grades[i] == 5:
        count5 += 1
# Вывод результатов
print(f'Количество двоек: {count2}')
print(f'Количество троек: {count3}')
print(f'Количество четвёрок: {count4}')
print(f'Количество пятёрок: {count5}')