Дан фрагмент ЭТ. Какое значение будет в ячейке D1? А В

дана матрица
А= {-10 20 13
-22 11 -5
4 12 -8}
определить среднее арифметическое отрицательных и положительных элементов

program pasha;
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>555)and(a<=5555);
writeln('Данное число читается одинаково справа налево и слева направо');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end.

S:=2;
X:=0;
While x<5 do
begin
S:=S+X;
X:=X+2;
end;
с полным решением пожалуйста.. вроде 4 выходит,но не уверена

var x,y : integer;