{$APPTYPE CONSOLE}
uses  sysutils, dos;
const c: array[0..9] of string[1]=('0','1','2','3','4','5','6','7','8','9');
var   b: array[1..255] of string[4];
      v: array[0..255] of string[3];
      n,j,k,l: byte;   o: text;   s: string;
BEGIN
  randomize;
  n:=0;
  for j:=0 to 2 do
  for k:=0 to 9 do
  for l:=0 to 9 do
  if DirectoryExists('k'+c[j]+c[k]+c[l]) then begin
      inc(n);  b[n]:='k'+c[j]+c[k]+c[l]         end;
  for j:=1 to n do str(j,v[j]);
  for j:=n downto 2 do
  begin
    k:=1+random(j);
    v[0]:=v[k];
          v[k]:=v[j];
          v[j]:=v[0];
  end;
  assign(o,'Кодування робіт, зібраних за допомогою ejudge.txt');
  rewrite(o);
  for j:=1 to n do
  begin
    writeln(o, b[j]+'  ->  ',v[j]);
    exec('C:\WINDOWS\system32\cmd.exe','/C ren '+b[j]+' '+v[j]);
  end;
  close(o);
END.