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.