¿No tienes cuenta? Registrarte
uses Crt; begin Writeln('Hola! Pulsa Intro...'); Readln; ClrScr; end.