nhập n từ bàn phím tìm các số hoàn hảo từ 1 -- > n
bài làm em như sau.. tuy nhiên sao nó vẫn nhập n xong chả in ra màn hình ji cả

Program HH;
var i,j,s,n : integer;
  begin
  write(' nhap n '); readln(n);
  s:=0;
 for i:=2 to n do
    begin
    for j:=1 to n-1 do
      begin
      if (i mod j = 0 ) then s:=s+j;
      end;
      if s=i then write(i:3);
end;
readln;
end.