посчитайте Язык прог-я ПАСКАЛЬ

Решение представлено во вложениях.

Язык: Pascal

Примечание:

(1) - (2) скриншоты - код первой программы.

(3) скриншот - результат работы первой программы.

Теперь по поводу второй программы:

Всё будет практически то же самое, что и в первой. Только вместо функции product необходимо написать функцию multiple.

Как это сделать я показал на (4) скриншоте.

(5) скриншот - результат работы второй программы.