В таблице хранятся последующие данные об учениках: фамилия, имя, отчество, рост,

Type Uchenik=Record
nbsp;nbsp;nbsp;nbsp;nbsp;Fam,Name,Surname:string[20];
nbsp;nbsp;nbsp;nbsp;nbsp;Rost,massa:integer;
nbsp;nbsp;nbsp;nbsp;nbsp;End;
Var
nbsp;nbsp;nbsp;sr:real;
nbsp;nbsp;nbsp;n,k,i,max,min:integer;
nbsp;nbsp;nbsp;s1,s2:string[20];
nbsp;nbsp;nbsp;A:array[1..100] of Uchenik;
Begin
nbsp;nbsp;nbsp;sr:=0;max:=0;min:=500;k:=0;
nbsp;nbsp;nbsp;write(Введите кол-во воспитанников: );readln(n);
nbsp;nbsp;nbsp;For i:=1 to n do
nbsp;nbsp;nbsp;nbsp;nbsp;With a[i] do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Введите информацию о ,i,-ом ученике);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(Фамилия: );readln(Fam);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(Имя: );readln(Name);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(Отчество: );readln(Surname);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(Рост: );readln(Rost);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(Масса: );readln(Massa);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if Rostgt;max then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;max:=Rost;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s1:=Fam;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if Rostlt;min then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;min:=Rost;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;s2:=Fam;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;sr:=sr+Rost;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if Rostgt;170 then inc(k);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Средний рост учеников: ,sr/n:0:2);
nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Самый высочайший воспитанник: ,s1, его рост ,max);
nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Самый низний воспитанник: ,s2, его рост ,min);
nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Кол-во воспитанников которые могут заниматься в баскетбольной команде: ,k);
End.