где здесь ошибка?

[Katrina*]

Почему не записывает ответ в C.out?
Program zadanie;
var f1,f2:text;
a,i,sum:integer;
begin
assign(f1,'C.in');
assign(f2,'C.out');
reset(f1); rewrite(f2);
readln(f1,a);
sum:=0;
for i:=1 to a-1 do
if a mod i=0 then
begin
sum:=sum+i;
if sum>a then break;
end;
if sum>=a then write (f2,'yes')
else write (f2,'no');
close(f1); close(f2);
end.

[Xardas]

Судя по всему, у Вас в исходном файле ничего нет. Ради интереса скопировал Ваш код из другой темы "Задача про доску", где якобы тоже ничего не записывается, правда, я поменял расширение файлов на txt, создал текстовый файл, поместил в него число и результат получил в выходном файле. Так что проверяйте содержимое исходных файлов во всех Ваших задачах и пути к ним!