language: Pascal (gpc) (gpc 20070904)
date: 107 days 1 hour ago
link:
visibility: public 
1
2
3
4
5
6
7

program mult67 (input,output);
    var N : integer;
begin
  readln(N);
  if (N div 7 = 0) and (N div 6 <> 0) then writeln('yes')
       else writeln('no');
end.