Capturar errores y personalizarlos

[kinobi]

Empezado por @-Soft

y tendriamos que dialogar menos ya que un codigo dice mas que mil palabras.

  procedure Respuesta;
  begin
    writeln('¿Tú crees?');
    writeln('No estoy de acuerdo');
    write('Adivina que hace este código C:');
    writeln(' (Sacado del concurso de C ofuscado:http://www.es.ioccc.org/years.html)');
  end;

int _,O,__??('}'??);main(){while(O?gets((rand()%O++?':':_)+__)||
  puts(&__??(_??))&_:srand(time((O+++_)))||O);}

  procedure Despedida;
  begin
    writeln('Saludos');
  end;