Create program1.pas

Lab 1