Конституция гарантирует право человека на неприкосновенность личной жизни и тайну переписки. Шифрование позволяет защитить эти права от недобросовестных членов общества. Любые попытки запретить шифрование или требование предоставить ключ шифрования неконституционны.
Кажется, эта ссылка должна помочь!
https://support.office.com/ru-ru/article/%D0%92%D0%BE%D1%81%D1%81%D1%82%D0%B0%D0%BD%D0%BE%D0%B2%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5-%D1%84%D0%B0%D0%B9%D0%BB%D0%B0-Office-4bddecb7-bf4f-4aad-b1b3-dab1633b5bbf
Сама с таким сталкивалась, но восстановить не получилось
var
A:array [1..8] of byte;
i:integer;
begin
for i:=1 to 8 do readln(A[i]);
for i:=1 to 8 do writeln(A[i]);
for i:=8 downto 1 do
begin
if not Odd(A[i]) then writeln(A[i]);
end;
readln;
end.
А чем помочь то здесь ничего нет?