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

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