Create program1.pas

Lab 1
Merge pull request #1 from ascreamingweas/patch-1

Create program1.pas