pascal 368 Bytes