program Project1;

{$APPTYPE CONSOLE}

uses
windows;

var
I: Integer;
q,z: int64;
pw: string;
begin
  SetConsoleTitle('#### I-C00L Generator ####');
  write('From UIN: ');
  readln(q);
  write('To UIN:   ');
  readln(z);
  write('Password: ');
  readln(pw);
  writeln('Start Generation...');
  AssignFile(output,'source.txt');
  Rewrite(Output);
  for i := (q) to (z) do
  begin
  writeln(i,';',pw);
  end;
end.