Create chapter4(task15).pas