1. Натуральное число M называется совершенным, если оно равно сумме всех своих делителей, включая единицу, но исключая себя. Напечатать все совершенные числа, меньшие заданного числа N.Примечание: Решить в Pascal’е.

#include <iostream>#include <clocale>#include <cmath>using namespace std;void main(){setlocale(LC_CTYPE,»rus»);int x, sum=0;cout<<«Введите переменную: «;cin>>x;for(int i=1; i<x;i++){if(x%i==0)sum+=i;}if(x==sum){cout<<«Это совершенное число»<<endl;}else{cout<<«Это несовершенное число»<<endl;}}