Известен рост каждого ученика группы. Рост мальчиков задан отрицательными числами. Верно ли, что средний рост мальчиков не превышает рост девочек более чем на 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.