Поделитесь своими знаниями, ответьте на вопрос:
1) совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число 6 = 1 + 2 + 3 напишите программу, которая вводит натуральное число n и определяет, является ли число n совершенным
Var i,s : Integer;
Begin
s:=0;
For i:=1 to a-1 do
If a mod i=0 then s:=s+i;
Check:=s=a;
end;
Var N : Integer;
Begin
Readln(N);
Writeln(Check(N));
end.