old/PAS/Num Systems/DIMDEM.PAS

Var
 ainp      : string;
 iinp,divs : longint;
 k,i       : byte;

Function ToDem(inp : string) : longint;
var
 ret  : longint;
 i,j  : byte;
 incs : longint;
 num  : byte;
begin
 ret:=0;
 for i := 1 to length(inp) do
  begin
   incs := 1;
   for j := length(inp)-1 downto i do incs := incs * k;
   if ord(inp[i]) > ord('A') then num := ord(inp[i]) - ord('A')+10
   else num := ord(inp[i])-$30;
   inc(ret,num*incs);
  end;
  todem := ret;
end;

begin
  Write('‚¢¥¤¨â¥ á¨á⥬㠨áç¨á«¥­¨ï ¢¢®¤¨¬®£® ç¨á«  (k): ');
  ReadLn(k);
  Write('‚¢¥¤¨â¥ ç¨á«® ¢ k-¨ç­®© á¨á⥬¥: ');
  ReadLn(ainp);
  Write('‚¢¥¤¨â¥ ¤¥«¨â¥«ì ¢ 10-ç­®© á¨á⥬¥: ');
  ReadLn(divs);
  for i := 1 to Length(ainp) do
  ainp[i] := UpCase(ainp[i]);
  iinp := toDem(ainp);
  if iinp mod divs = 0 then WriteLN('„¥«¨âáï') else WriteLn('�¥ „¥«¨âáï');
  readln;
end.