Известен рост каждого ученика группы. Рост мальчиков задан отрицательными числами. Верно ли, что средний рост мальчиков не превышает рост девочек более чем на 10 см? Помогите написать программу на Free Pascal.

const   nn=50; // максимальное количество учеников var   i,n,sm,sd,km,kd:integer;   am,ad:real;   var a:array[1..nn] of integer; begin   Write('Введите количество учеников: ');   Read(n);   Writeln('Введите рост учеников');   sm:=0; sd:=0; km:=0; kd:=0;   for i:=1 to n do     begin     Read(a[i]);     if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end     else begin sm:=sm-a[i]; Inc(km) end     end;   am:=sm/km; ad:=sd/kd;   Write('Средний рост мальчиков (',am:0:1,') ');   if am-ad<=10 then Write('не ');   Writeln('превышает средний рост девочек (',ad:0:1,') ');   Writeln('больше, чем на 10 см') end.     Примерное решение Введите количество учеников: 9 Введите рост учеников -192 165 -174 179 -172 171 169 170 -170 Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8) больше, чем на 10 см