PROGRAM Ascii(INPUT,OUTPUT);
VAR i,n,val:INTEGER;
        c:CHAR;
 
BEGIN
     n:=0;
     FOR i:=0 TO 256 DO
     BEGIN
          n:=n+1;
          WRITELN(i,' -> ',CHR(i),' ');
          IF n=22 THEN BEGIN
                            WRITELN('c para continuar');
                            REPEAT
                            READLN(c);
                            UNTIL c='c';
                            n:=0;
                       END;
     END;
     READLN
 
END.
 

UFJPR1JBTSBBc2NpaShJTlBVVCxPVVRQVVQpOwpWQVIgaSxuLHZhbDpJTlRFR0VSOwogICAgICAgIGM6Q0hBUjsKCkJFR0lOCiAgICAgbjo9MDsKICAgICBGT1IgaTo9MCBUTyAyNTYgRE8KICAgICBCRUdJTgogICAgICAgICAgbjo9bisxOwogICAgICAgICAgV1JJVEVMTihpLCcgLT4gJyxDSFIoaSksJyAnKTsKICAgICAgICAgIElGIG49MjIgVEhFTiBCRUdJTgogICAgICAgICAgICAgICAgICAgICAgICAgICAgV1JJVEVMTignYyBwYXJhIGNvbnRpbnVhcicpOwogICAgICAgICAgICAgICAgICAgICAgICAgICAgUkVQRUFUCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBSRUFETE4oYyk7CiAgICAgICAgICAgICAgICAgICAgICAgICAgICBVTlRJTCBjPSdjJzsKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG46PTA7CiAgICAgICAgICAgICAgICAgICAgICAgRU5EOwogICAgIEVORDsKICAgICBSRUFETE4KCkVORC4K