написать программу на PascalABC.NET Разработать программу, составив для каждого задания свою таблицу. Выбор типа исходных и выходных данных зависит от языка программирования, программы обучения и желания обучаемого.
О каждой книге имеются следующие сведения:
фамилия и инициалы автора, название, год издания и количество запросов за последние три года.
Вывести фамилии авторов и названия книг, изданных до 1980 года, по которым нет запросов.

Program nnatovna;
uses crt;
const n=13;
var
  a:array [1..n] of integer;
  i,min,max,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{ищем номера мин и мах}
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[min]>a[i] then min:=i;
      if a[max]<a[i] then max:=i;
    end;
{меняем местами мин и мах элементы}
  temp:=a[min];
  a[min]:=a[max];
  a[max]:=temp;    
{вывод результата}
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.

Появилось две линии, стрелочка начала зацикливаться. Получается алгоритм будет выполняться бесконечное количество раз. Чтобы более точно ответить на письменный вопрос - можете провести идентичные действия:

Заходим в ГРИС.

Нажимаем "Начать"

Нажимаем F4(поворот) три раза. (В условии сказано, что исходное положение: ГРИС — в левом верхнем углу, направление — вниз.)

Теперь нажимаем F8(цикл) - выбираем: Пока впереди не стена.

Следующим этапом нажимаем F5 (описание). В появившейся строке нужно написать ПУТЬ и нажать Enter. Чтобы отключить окно нажимаем Esc. Жмем ещё два раза Enter.

Нажимаем: F4 - F3 - F4 (поворот - прыжок - поворот).

При откладки (вверху) спускаемся в самый низ на панели наших действий (слева).

Жмем F8 - Пока впереди стена.

Жмем F2 (шаг).

Жмем на откладку вверху и смотрим результат

Готово))