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('program cuentaletras;\nvar\nfrase:string;\nc :char;\ncontador:byte;\nn:integer;\nbegin\n	writeln(output,\'escribase una frase \');\n	readln(frase);\n	writeln(output,\'escribase el caracter a buscar en la frase \');\n	readln(c);\n	while pos(c,frase)<>0 do\n		begin\n			contador:=contador+1;\n			n:=pos(c,frase);\n			delete(frase,n,1);\n		end;\n	writeln(output,c,\'aparece\',contador,\'veces\');\nend.');
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>');