Public repository of Joe Care

IOPCC 17.2

       UNIT 
       { ©by
      Joe }

     {Care}             uIopcc172;      interface{$H+}      uses Math;     type     l0=  0..11       ;e={}     integer;
     {2017}          function M: e;     implementation   const {This ##    CONST   ARE   HERE#       #}l3=   LineEnding;
     lO={#}        $40840708F7D8E14D   ;l1:e=-$CD; ll=  $EA48A42E8EA435f  {This   are   other       CONST}  ;lI=ll and-ll;
    lQ=lI-          lI;     l=lI shl   lI;I=l shl l;Q    =I-     l-lI;{}  Function M:   e;var       Jo:e=   2017;     Ca,

    r:e{}               ;CONST D=#8+        ' \_/';        begin l1+=    Jo;for        Ca in       l0 do    begin Write
    {->}(            StringOfChar(D[       l],(I+Q       )-Ca));for Jo   := lQ         to(I+       I) do     for r in l0
    do if          r<Q+(Jo mod(I-Q))      and l-0      then Write(D[((   ll xor       lO)div      round      (power(Q,((I
   +lI)*(         I-Q))-   ( ( ( ll      xor l1)      shr(((   ( ( ll   shr((         Jo and      (I+I-        lI))*(Q-lI

 )+Ca div(I-Q))) and((       I-Q)-   (Ca div (I+lI   )) shl     lI))   -( Q-         lI)+(l-Ca mod(I-Q))  shl     l)mod
 (Q-lI)+(I-Q))*l )and(l+lI))*(I-lI   )+r)))mod Q)+   lI]);write(l3)    ;end;         readln;//IS#ONE###   #OF#THE#BEST#
 {INTRÈGRATED#-#  DEVELOPMENT AND#   OBJECTPASCAL#   LEARNING #ENV-    IRON-          MENTS# OUT# HERE#    TO#SAY#THE#
#LEAST!!!######   #########  ####   ###}M:=l;{###     ######  ####    #####            SO#THIS# IS#THE      }end;end.