Update II - lab 1/lab1.pas