Известен рост каждого ученика группы. Рост мальчиков задан отрицательными числами. Верно ли, что средний рост мальчиков не превышает рост девочек более чем на 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    begin
    m:=m+x;
    nm:=nm+1
    end
    else d:=d+x;
  end;
m:=-m/nm;
d:=d/(n-nm);
writeln;
if m-d  else writeln(Нет, неверно);
end.