Символом F обозначено одно из указанных ниже логических выражений от трех аргументов: X, Yи Z. Дан фрагмент таблицы истинности выражения F (см. рисунок). Какое
выражение соответствует F?
XYZF
O001
oo11
01 01
Отне (X и Y) и 2
не (X или не Y) или Z
не (ХиҮ) или Z
(X или Y) иZ

Const
  n = 10;

var
  a: array[0..10] of integer;
  i, s: integer;

begin

//Заполнение массива сл. числами

  for i := 1 to n do
  begin
    a[i] := random(201) - 100;
    write(a[i]:4);
  end;
  writeln;

//1) Все элементы не превышающие число 100

  writeln('Не больше 100 ');
  for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
  writeln;

// 2) Все четные элементы

  writeln('Кратные двум ');
  for i := 1 to n do
    if a[i] mod 2 = 0 then  
      write( a[i]:4);
  writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
  for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then  
      write(a[i]:4);
  writeln;

// 4) Третий, шестой и т.д элементы.

  i := 3;
  writeln(' номера 3, 6, 9 и  т.д.');
  while i < n do
  begin
    write(a[i]:4);
    i := i + 3;
  end;
end.

Записывайте: Если это для уроков в школе нужно - то это подойдет: 
Салат Оливье. 
Ингредиенты 
1 баночка зеленого горошка (400г) 
300 г мяса 
4 яйца 
350 г картофеля 
100 г соленых или маринованных огурцов 
150 г лука 
соль 
майонез 
Алгоритм приготовления: 
1.Мясо отварить до готовности (варить около 40 минут после закипания) . 
2.Остудить. 
3.Лук мелко покрошить. 
4.Залить его кипятком и оставить на 10 минут, затем воду слить, лук промыть в холодной воде. 
5.Мясо нарезать кубиками. 
6.Картофель почистить, нарезать кубиками. 
7. Яйца мелко покрошить. 
8.Огурцы мелко нарезать. 
9.Смешать картофель, мясо, лук, горошек (воду слить) , яйца, огурцы. 
10.Посолить. 
11. Заправить майонезом. 
12. Украсить по вкусу, например зеленым горошком 

Это?