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

var   m,d,x:real;   n,nm,i:integer; begin write('Сколько учеников:'); readln(n); for i:=1 to n do   begin   readln(x);   if x<0 then     begin     m:=m+x;     nm:=nm+1     end     else d:=d+x;   end; m:=-m/nm; d:=d/(n-nm); writeln; if m-d<=10 then writeln('Да, верно')   else writeln('Нет, неверно'); end.