program listexample;

uses CRT;
{Описание типа двусвзяного списка}
type
plist = ^tlist;
tlist = record
data : integer;
next, prev : plist;
end;
p2list = ^plist;
{Процедура для вывода списка на экран}
procedure Display (list : plist);
var
p : plist;
begin
if list = nil then
writeLn ('пусто')
else
begin
p := list;

while p^.prev <> nil do
p := p^.prev;

while p <> nil do
begin
write (p^.data,' ');
p := p^.next
end;
writeln;
end
end;

{Добавление элементов в конец списка}
procedure AddToEnd (list : p2list; d : integer);
var
prior : plist;
begin
prior := nil;

while list^ <> nil do
begin
prior := list^;
list := @list^^.next
end;

New (list^);

with list^^ do
begin
data := d;
next := nil;
prev := prior
end
end;
{Освобождение памяти занимаемой списком, тоесть удаление списка}
procedure Clear (list : p2list);
var
old : plist;
begin
if list^ = nil then
exit;
while list^^.prev <> nil do
list^ := list^^.prev;
while list^ <> nil do
begin
old := list^;
list^ := list^^.next;
Dispose (old)
end
end;
{Обработка списка согласно заданию}
procedure Process (list : p2list);
var
first,last : plist;
begin
if list^ = nil then
exit;
writeln;
last:=list^;
first:=list^;
{Проходим списко для нахождения последнего элемента}
while last^.next <> nil do
last := last^.next;
{Проходим список для нахождения первого элемента списка}
while first^.prev <> nil do
first:=first^.prev;
{Вывод информации согласно заданию (перемножаем первый и последний,
препоследний и второй и т.д.)}
while (first<> nil) and (last <> nil) Do
begin
write(first^.data*last^.data:4);
first:=first^.next;
last:=last^.prev;
end;
{Освобождение памяти}
dispose(first);
dispose(last);
end;

var
list : plist;{Объявление двусв. списка}
i,n,x : integer;
begin
{Ввод кол-ва элементов последовательности}
repeat
writeln('Введите кол-во элементов последовательности:');
readln(n);
until n>=2;

{Вводим данные и добавляем их в список}
for i:=1 to n do
begin
write ('Введите число: ');
readLn (x);
AddToEnd (@list,x);
end;
{Выводим последовательность перед обработкой}
writeln('Последовательность:');
display(list);
{Обработка списка}
process(@list);

{Завершение программы. Очистка памяти}
readln;
Clear (@list);
end.