выполнить на pascal. в задании 1 выполнить все 4 номера.
Вариант 19. Нужны Только программы.
Добавить комментарии в код.