Question

var n,x,i,s:integer; input,output:text; a:array [1..10] of integer;
begin
s:=0;
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln (input,n);
for i:=1 to n do
begin
read(input,a[i],x);
if a[i]=1 then s:=s+x;
end;
write(output,s);
close(input);
close (output);
end.
Когда скинула на проверку, написали, что Программа выполнила недопустимую операцию. Найдите ошибку, пожалуйста.

Answer 1

Компиляцию твоя программа проходит успешно.

Answer 2

на сайте проверки пишут, что там ошибка