Program Kontr1;Const a : array[1. . 25] of integer = (4, 5, 3, 3, 4, 4, 2, 5, 3, 4, 5, 5, 2, 3, 3, 3, 4, 4, 5, 2, 2, 5, 4, 4, 4);Var k : integer;Begin write('Введите номер ученика:'); readln( ); {ввод номера ученика} writeln( ); {вывод отметки ученика с этим номером}End. {Даны отметки учеников за контрольную работу (по пятибальной системе). Отметки перечислены в том порядке, в каком ученики идут по списку в журнале. Массив с отметками задан константой: в скобках после описания массива перечислены все значения его элементов. Поэтому вводить значения элементов массива в программе не нужно. Вывести на экран отметку того ученика, номер которого укажет пользователь. }