Program abcd;
Var
   n1, n2: Integer;
   Function isModBiggerThenDiv(n1, n2: Integer): Boolean;
      begin
         isModBiggerThenDiv := (n1 Mod n2) > (n1 Div n2)
      end;
Begin
   WriteLn('הכנס מספר לחילוק');
   ReadLn(n1);
   WriteLn('הכנס מספר שבו נחלק את ', n1);
   ReadLn(n2);
   If isModBiggerThenDiv Then
      WriteLn('השארית גדולה מהמנה השלמה')
   Else
      WriteLn('השארית לא גדולה מהמנה השלמה');
End.