Формат ввода Вводится число n, затем последовательность чисел, пока не будет введено отрицательное число (в последовательность не входит, служит признаком окончания ввода Формат вывода Для каждого числа последовательности нужно найти остаток от деления его на n и вывести строку: Призрачный дом ( ) Пример 1 Ввод Вывод 5 16 42 28 4 -2 Призрачный дом (1) Призрачный дом (2) Призрачный дом (3) Призрачный дом (4) Пример 2 Ввод Вывод 17 34 52 -186 Призрачный дом (0) Призрачный дом (1)

Const n = 10;
var
  a:array[1..n]of integer;
i,k,temp:integer;

begin
  for i:=1 to n do a[i]:=random(21) - 10;
  repeat
    writeln('Введите k (k<>1 и k<>10)');
    readln(k);
    if (k=1) or (k=n) then writeln('Ошибка, повторите ввод');
  until (k<>1) and (k<>n);
  for i:=1 to n do write(a[i]:4);writeln;
  temp:=a[k-1];a[k-1]:=a[k+1];a[k+1]:=temp;
  for i:=1 to n do write(a[i]:4);  
end.

Тестовое решение:
Введите k (k<>1 и k<>10)
1
Ошибка, повторите ввод
Введите k (k<>1 и k<>10)
5
   7  -5  -6   6  -7   3   9   8   7  -6
   7  -5  -6   3  -7   6   9   8   7  -6