Pessoal, fiz esse programa em diversas outras linguagens e todas foram aceitas (c,c++, python, java, etc), mas no pascal esta dando 15% de erro com a seguinte saida

# # # files dont match - see output

* * * 2847-m.out 2021-04-08 14:29:38.018671485 +0000

--- 2847/2847-m.sol 2018-08-13 18:53:15.184274000 +0000

***************

*** 1 ****

! 0

--- 1 ----

! 8236

Differences were found

pelo que entendi estou devolvendo 0 quando deveria devolver 8236. nao entendo pq nas outras linguagens esta ok.