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.