Составьте программу нахождения наибольшего значения роста у двух ...

Мария

Uses  Crt;Var  i, N, kol: byte;  sum_rost, sr_rost: real;  team: array[1..100] of real;Begin  sum_rost := 0.0;  sr_rost := 0.0;  kol := 0;  write('Введите количество членов команды');  read(N);  writeln('Введите рост каждого члена команды');  for i := 1 to N do    begin      readln(team[i]);      sum_rost := sum_rost + team[i];    end;  sr_rost := sum_rost / N;  for i := 1 to N do    if (team[i] > sr_rost) then      kol := kol + 1;  writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');  write(' равно ', kol);End.Прошу. Я надеюсь надо было на паскале написать?)