Что за папка, в папке Windows 8.1 (система) и папка SearchBar?, там всякие start.cmd, uninstall.exe, main.html, assets-css-js, icon.ico и тд​

Program TablMul;

Const Size = 7;

Var
Ball: array[1..Size] of real;
Ocenka: array[1..Size] of integer;
Counter: integer;

Begin

Counter := 1;

while (Counter <= Size) do
begin
Write('Введите ', counter, ' ученика: ');
Readln(Ball[Counter]);
Counter := Counter + 1;
end;

Counter := 1;

Repeat
if (Ball[Counter] > 90) then
Ocenka[Counter] := 5

else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then
Ocenka[Counter] := 4

else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then
Ocenka[Counter] := 3

else
Ocenka[Counter] := 2;

Counter := Counter + 1;

Until (Counter > Size);

Writeln();

for var i := 1 to Size do
Writeln('Оценка ', i, ' ученика: ', Ocenka[i]);

End.

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var q:=new Queue<integer>;
  var n:=ReadInteger('Кол-во элементов (не менее 4):');
  Randomize;
  var k:integer;
  for var i:=1 to n do begin
    k:=Random(-20,40); Print(k);
    q.Enqueue(k)
    end;
  Writeln; // очередь заполнена, выведены ее элементы
  var (ko,s):=(-100,0);
  for var i:=1 to n do begin
    k:=q.Dequeue; q.Enqueue(k);
    if k.IsOdd then ko:=k;
    if i=3 then s:=k
    end;
  s+=ko;
  q.Enqueue(s);
  q.Println; // искомая сумма помещена в очередь
  for var i:=1 to n do begin
    k:=q.Dequeue;
    if i<>4 then q.Enqueue(k)
    end;
  q.Println
end.