program haham;
var
i,k,mis_banim,mis_banot:integer;
banim,banot,average_banim, average_banot,grade_1, grade_2:real;
begin
     writeln ('ahnes mispar banim');
     readln (mis_banim);
     writeln ('tsiuney banim');
     for i:= 1 to mis_banim do
     begin
      banim:=0;
      writeln ('ahnes tsiun');
      readln (grade_1);
      banim:=banim+grade_1
      end;
     writeln ('ahnes mispar banot');
     readln (mis_banot);
     writeln ('tsiuney banot');
     for k:=1 to mis_banot do
     begin
      banot:=0;
      writeln ('ahnes tsiun');
      readln (grade_2);
      banot:=banot+grade_2;
      end;
    average_banim:=(banim/mis_banim);
    writeln (average_banim,'hamemtutsa shel habanim');
    average_banot:=(banot/mis_banot);
    writeln (average_banot,'hamemutsa shel habanot');
    if average_banim>average_banot then
    writeln ('memutsa habanim gavoaa yoter') else
    if average_banot>average_banim then
    writeln ('memutsa habanot gavoaa yoter') else
    writeln ('memutsa habanim shave lememutsa habanot');
end.