program keygen;
uses crt;

var
  count,  length                                         : integer;  
  eax, edi, edx, ebx                                     : longint;
  name, initials, surname, dummystr, space, code         : string;
  len                                                    : byte absolute dummystr;
  len2                                                   : byte absolute code;
  namelen						 : byte absolute name;
  initiallen						 : byte absolute initials;
  surnamelen                        			 : byte absolute surname;


begin
  TextColor(9);
  writeln('            苘苘