{
TASK:sum
LANG:Pascal
}
program SUM;
var x,br,n,s1,s2,s3,s4,s5:integer;
begin
  write('vyvedete cqlo chislo n=');
  readln(n);
 x:=n mod 2;
 s1:=n mod 10;
 s2:=n div 10 mod 10 mod 10;
 s3:=n div 100 mod 100 mod 10;
 s4:=n div 1000 mod 1000;
 s5:=n div 10000 mod 10000;
 if (n<2) and (x=0) then writeln('nqma nachin')
 else
  if (n=5) and (n=7) then writeln('na4inyt e 1');
  if (n=9) then writeln ('nachinite sa 2');
  if n>10 then
  begin
  if (n mod 5=0) then br:=1+(n div 5);
  if (s1=7) and (s2=1) then br:=2;
  if (s1=7) and (s2>=2) then br:=3;
  if (s1=9) and (s2=1) then br:=2;
  if (s1=9) and (s2>=2) then br:=2;
  end;
  writeln('nachinite sa:',br);
  readln;

end.
