Viết chương trình nhập vào số nguyên N in ra màn hình xem số đó có phải là số hoàn hảo không?

uses crt;
var n,i,t:integer;
begin
clrscr;
write('nhap n:'); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then begin
t:=t+i;
end;
if t=n then writeln(n,' la so hoan hao')
else write(n,' khong la so hoan hao');
readln;
end.

Nhập chương trình nhập vào số nguyên tính tổng các số khác 0 trong dãy số nguyên đó và chương trình dừng lại khi nhập vào số 0 bằng câu lệnh REPEAT