Comment traduire ce code C en Pascal ?

Version imprimable