document.write('<link rel="stylesheet" type="text/css" href="http://www.naslu.com/css/SyntaxHighlighter.css" />');
document.write('<textarea name="code" id="code" class="delphi" rows="1" cols="1">');
document.write('PROCEDURE ALINEA_POR_LA_DERECHA(longi_maxima, longitud : INTEGER; VAR s : STRING);\n//longi_maxima es la longitud maxima  que se desea que tenga la cadena \n//longitud es la longitud real de esa cadena\n//s es el string q queremos alinear\n\nCONST  \n   blanco=\' \';          \n\nVAR\n   i:INTEGER;\n\nBEGIN\n   IF longi_maxima <> longitud THEN \n	FOR i:=1 TO longi_maxima-longitud DO INSERT(blanco,s,i);\nEND; { FIN ALINEA_POR_LA_DERECHA }');
document.write('</textarea>');
document.write('<script languaje="javascript" type="text/javascript">');
document.write('dp.SyntaxHighlighter.ClipboardSwf = \'http://www.naslu.com/flash/clipboard.swf\';dp.SyntaxHighlighter.HighlightAll("code");');
document.write('</script>');
document.write('<a href="http://www.naslu.com" style="font-family:Arial;font-size:9px;color:#444444;font-weight:bold;">Powered by naslu.com</a>');