Var
  AI1, AI2 : array[1..20] of integer; // два массива из 20 целых чисел, занумерованных числами от 1 до 20