Ну ты просто выдумал себе сложности, при вызове F она выведет 9, паскаль не знаю, но точно утверждаю, что это так.
Сначала идёт вывод переменной а потом операции с ней, ничего додумывать не нужно.
1. объект- : платье 2. свойства: цвет,материал
152 бит = 152 / 8 байт = 19 байт
1 байт = 8 бит
1 бит = 1/8 байт
program raf105;
var
a:array[1..10] of integer;
x,i,c: integer;
begin
writeln('Заполните массив:');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10-1 do
if ((a[i]+a[i+1]) mod 2 = 0) and ((a[i]+a[i+1]) mod 4 <> 0)
then c+= 1;
writeln('Вывод: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>