В какой системе выполнено сложение? ​

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

uses System.Linq;

function GetPrimes(n: integer): List<integer>;

begin

   var primes := new List<integer>();

   primes.Add(2);

   for var i := 3 to n do

   begin

       if primes.All(x -> i mod x > 0 ) then

           primes.Add(i);

   end;

   GetPrimes := primes;

end;

begin

   var n := ReadInteger('n =');

   var primes := GetPrimes(2 * n);

   foreach var p in primes do

       if primes.Contains(p + 2) then

           writeln(p, ' ', p + 2);

end.

const n=9;

var marks:array[1..n,1..2] of 2..5;

i,k:integer;

begin

writeln('Оценки студентов:');

for i:=1 to n do

begin

marks[i,1]:=random(4)+2;

marks[i,2]:=random(4)+2;

writeln(i,': ',marks[i,1]:3,marks[i,2]:3);

end;

k:=0;

for i:=1 to n do

if (marks[i,1]+marks[i,2])/2<3 then k:=k+1;

writeln('Количество студентов, имеющих средний < 3 = ',k);

end.

Пример:

Оценки студентов:

1:   5  4

2:   5  4

3:   4  3

4:   5  5

5:   2  2

6:   2  3

7:   5  5

8:   3  4

9:   2  2

Количество студентов, имеющих средний < 3 = 3