Program Dasha Uses CRT Const nmax 99 Var size array nmax of integer su

Program Dasha;
Uses
  CRT;
  
Const  
  nmax = 99;

Var
  size: array[0..nmax] of integer;
  n, i, summ, count :integer;
  out :real;

Begin
  CLRSCR;  
  summ := 0;
  count := 0;
    
  Writeln('Количество учеников: ');
  Readln(n);
    
  For i:=1 to n do
    Begin
      Write('Ученик ', i, ' введите рост: ');
      Read(size[i]);
      if size[i] < 0 then
        begin
          summ := summ - size[i];
          count := count + 1;        
        end;
    End;    
  out := summ / count;
  Writeln('Средний рост мальчиков: ', out);
  Readln;
End.