fork download
  1. program ex7;
  2. var leftSum, rightSum, i, n, weight, direction : integer;
  3. input : text;
  4.  
  5. begin
  6. leftSum := 0;
  7. rightSum := 0;
  8. writeln('Introdu numarul N');
  9. readln(n);
  10. assign(input, 'ROBOT.txt');
  11. reset(input);
  12. for i := 1 to n do
  13. begin
  14. readln(input, direction, weight);
  15. if (direction = 0) then
  16. leftSum := leftSum + weight
  17. else
  18. rightSum := rightSum + weight;
  19. end;
  20. if (leftSum > rightSum) then
  21. writeln('LEFT')
  22. else
  23. writeln('RIGHT');
  24. close(input);
  25. end.
Runtime error #stdin #stdout #stderr 0s 4536KB
stdin
5
1 2 3 4 6
stdout
Introdu numarul N
stderr
./prog: cannot open file `ROBOT.txt' for reading (No such file or directory) (error #442 at 402c97)