процедуры буду благодарен=((

Помогите пожалуста буду очень благодарен.

Задание 1. Составить программу решения задачи, используя подпрограммы-процедуры. Задание выполнять двумя способами:

1)использовать подпрограммы-процедуры без параметров.

2)использовать подпрограммы процедуры с параметрами.

Составить программу подсчета числа всех натуральных чисел, меньших М, квадрат суммы цифр которого ровный N.