N учащихся получили оценки за контрольную работу. Ввести оценку каждого ученика, найти средний балл, количество отличных оценок. Программа на паскали

var    p:real;   i,n,k,s:integer; begin  writeln('Введите количество учащихся');  readln(n);  k:=0;  p:=0;    for i:= 1 to n do        begin           read(s);         if s=5 then k:=k+1;         p:=p+s;       end;  write('Средний балл ',p/n,' Количество отличных оценок ',k) end.