Да что это такое? Free Pascal. Exit code = 2.

ДА Е*** Я В РОТ ЭТИ ФАЙЛЫ! НУ ЧТО С*** ЧТО ЭТОМУ ЕБ***** ПАСКАЛЮ НЕ НРАВИТСЯ???

var f1,f2:text; i,n:integer; a:array[1..10] of integer;
begin
Assign(f1, 'input.in');
Reset(f1);
Readln(f1,n);
for i := 1 to n do readln(f1,a[i]);
close(f1);
Assign(f2, 'output.out');
Rewrite(f2);
for i := 1 to n do writeln(f2,a[i]);
close(f2);
end.

Файлы созданы.
exit code = 2