Измени программу так, чтобы она обрабатывала оценки 5 учеников, ввод данных с оператора присваивания измени вывод массива на вывод с комментариями

program Diktant;

var n:array[1..5] of integer;

i, k:integer;

begin

k:=0;

for i:=1 to 5 do read(n[i]);

for i:=1 to 5 do write(n[i]);

for i:=1 to 5 do begin

if (n[i]=4) or (n[i]=5) then k:=k+1;

end;

writeln('k=',k);

end.