Program Setcnt;
{sets the initial number for Count}
Var
 ss:real;
Begin
 Write('Give the starting number> ');
 Readln(ss);
 ss:=ss-1;
 Defkey(103,Encint(ss,1))
End.