thienthan

Nhìn lại đi n là hằng số bằng 1000 thì nó đâu phải là số hoàn hảo mà chẳng không hiện gì.
Cho nhập số n đi chứ.
program soHoanHao;
uses crt;
const n=1000;
var i,s,k : integer;
begin
s:=0;
for k:=1 to 1000 begin
for i:=1 to n-1 do
begin
s:=s+i;
if s = k then writeln(s)
end;
end;
readln;
end;