Определите количество информации во фразе: "виртуальность"

Большой экран на всю стену

Program pr_1;
a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.

Смотрите в строчке под номером 4 
z:=-1; z становится отрицательным
Потом его пустили по циклу, в первом круге цикла этот же z (z:=z;) становится с противоположным знаком(z:=-(-1);) Тоесть сначала выполняется действие добавления(+), в следующем кругу уже положительному z меняют знак на противоположный, и z опять у нас
с "-" и так k раз.

Вроде понятно обьяснил, ну если что обращайтесь.

85 Фоксов - лгут
50 Фордов - лгут

100 - 85 = 15 - Фоксов говорят правду
100 - 50 = 50 - Фордов говорят правду

85 + 50 = 135 - количество фоксов и фордов, которые лгут
15 + 50 = 65 - количество фоксов и фордов, которые говорят всегда правду

300 - (135+65) = 300 - 200 = 100

В условии не сказано, что Фоксфорды вообще могут лгать. Так, что по идеи ответ 100.