Cwork lab8 pascal

do it