Ну, наверное, как то так это выглядит. Сам оформишь, как нужно
Свойство информации отражающее истинное положение дел это достоверность
Уменьшится в 2 раза.
в юникоде сообщение составляет 40 байт, в кои-8 - 20 байт.
значит и уменьшится на 20 байт
алг. обход прям.области
нач.
нц пока <продолжается стена> повторять
шаг
кц
поворот
кон.
как то так)
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>