Program gh;
Var A : Array[1..40] Of Integer;
n, Kd, Km : Byte;
Sd, Sm : Longint;
i:integer;
Begin Write('Введите n - количество человек в классе (n<=40)');
ReadLn(n);
For i:=1 to n Do ReadLn(A[i]);
sd:=0;
Kd:=0;
Sm:=0;
Km:=0;
For i:=1 To n Do Begin If A[i]>0 Then Begin Sd:=Sd+A[i];
Kd:=Kd+1;
End Else Begin Sm:=Sm+A[i];
Km:=Km+1;
End;
End;
If Abs(Sm)/Km-Sd/Kd>10 Then Writeln('Верно, средний рост мальчиков превышает ср.рост девочек более чем на 10 см.') Else WriteLn('He верно, средний рост мальчиков превышает ср.рост девочек не более чем на 10 см.');
End.