language: Pascal (gpc) (gpc 20070904)
date: 99 days 22 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
Program easy(input,output);
var N:integer;
begin
   readln(N);
   if (N mod 7=0) and (N mod 6<>0) then
             writeln ('yes')
   else
             writeln('no');
end.