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

Язык: Pascal

(1) скриншот - цикл с постусловием

(2) скриншот - цикл с предусловием