Написать программу, которая проверяет, является ли заданное число совершенным.

Program zadacha_3;
 var
 i,n,s :inetger;
 begin
 writeln('Введите число');
 readln(n);
s:=1;
 for i:=2 to n div 2 do begin
 if n mod i=0 then s:=s+i;
 if s=n then writeln(‘число является совершенным’);
 else writeln(‘число не является совершенным’) ;
end;
 readln;
 end.