здесь https://forum.hpc.name/thread/l812/79031/kak-nayti-summu-polojitelnyh-dvuznachnyh-chisel-iz-desyati-vvedennyh-znacheniy-v-pascal.html