Create Prac12Ej1.pas