Đáp án ra 0 có thể là do bài cũ của bạn. Nếu chạy sẽ ra 28.

Đề yêu cầu là xuất 1 hoặc 0 nhưng bạn lại xuất tổng ước thực sự của N (sửa ở dưới).

Chương trình đã được sửa:

program toang;
const fin='toang.inp';
           fou='toang.out';
var i,N,S:longint;
       f,g:text;
begin
assign(f,fin); reset(f);
assign(g,fou); rewrite(g);
read(f,N);
S:=0;
for i:=1 to N do
if (N mod i=0) and (i<N) then S:=S+i;
if S=N then write(g,1) else write(g,0); // Được sửa thành câu lệnh điều kiện
close(f);
close(g);
end.

Vậy là xong nó đã chạy ok rồi.

Làm theo đúng yêu cầu đề là kiểm tra số hoàn hảo (code của bạn).

program toang;
const fin = 'toang.inp';
    fou = 'toang.out';
var i, n, s: longint;
    f, g: text;
begin
    assign(f, fin); reset(f);
    assign(g, fou); rewrite(g);
    readln(f, n);

    s:=0;
    for i:=1 to n - 1 do 
        if (n mod i = 0) then inc(s, i);

    if s = n then writeln(g, 1) else writeln(g, 0);
    close(f);
    close(g);
end.

Nhưng với đề yêu cầu $n < 10^9$ thì code này chạy chắc chắn bị TLE, đây là code đúng:

uses crt;
var n, i, res: longint;
begin
clrscr;
    readln(n);

    for i:=1 to trunc(sqrt(n)) do
        if n mod i = 0 then 
            begin
                if i * i <> n then res:=res + i + (n div i)
                else inc(res, i);
            end;

    dec(res, n);
    if res = n then writeln(1) else writeln(0);
readln;
end.