Известен рост каждого из N учеников 9А класса и М учеников 9Б класса. Опишите укрупнёнными блоками алгоритм сравнения среднего роста учеников этих классов

Uses crt ; var n,m:integer; rost,a,b:real; beginwrite(Введите количество учинеков 9а класса: );readln(n);write(Введите количество учинеков 9б класса: );readln(m);writeln(Вводите рост каждого из учинеков 9а по очереди);for i:integer :=1 to n do beginwrite(i,: ); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln(Вводите рост каждого из учинеков 9б по очереди);for i:integer :=1 to m do beginwrite(i,: ); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a gt; b then write(Средний рост учеников 9а больше.) else if a lt; b then write(Средний рост учеников 9б больше.) else write(Средний рост учеников 9а равен среднему росту учеников 9б.);end.