program Diktant; var n:array[1..20] of integer; i,k:integer; begin k:=0; for i:=1 to 20 do read(n); for i:=1 to 20 do write (n); for i:=1 to 20 do begin if (n=4) or (n=5) then k:=k+1; end; writeln('k=',k); end. Измени программу так чтобы она обрабатывала оценки 5 учеников Замени ввод данных с помощью цикла на ввод с помощью оператора присваивания (n[1]:=5) Измени вывод массива на вывод с комментариями\