Program gil;
Var
     num:integer;
Begin
     WriteLn('הכנס מספר שלם כלשהו');
     ReadLn(num);
     If num MOD 7 = 0 Then
        WriteLn('המספר הוא כפולה של 7')
     Else
        WriteLn('המספר לא מתחלק ב 7');
End.