program posl(input,output);
label 1;
var k,c:integer;
begin
   write('vvedite k:'); read(k);
   if k mod 2<>0 then c:=k div 20+1 else c:=(k mod 20)div 2-1;
   writeln('cifra=',c)
end.



