program spisok;
uses crt;
const n=5;
type
List=^Tlist;
Tlist=record
      data:integer;
      next:List;
      end;
var a:array[1..n,1..n] of integer;
    d,b,c,sum:integer;
    i,j:byte;
    pbegin,pend,u,s:List;
begin
clrscr;
randomize;
writeln('ishodny massiv');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(300)-100;
    write(a[i,j]:5);
   end;
  writeln;
 end;
writeln('ishodny spisok tipa ochered');
new(pbegin);
pbegin^.next:=nil;
pbegin^.data:=a[i,j];
pend:=pbegin;
for i:=1 to n do
for j:=1 to n do
 begin
  new(u);
  u^.next:=nil;
  pend^.next:=u;
  pend:=u;
  pend^.data:=a[i,j];
 end;
s:=pbegin;
for i:=1 to n*n+1 do
 begin
  c:=s^.data;
  write(c:5);
  s:=s^.next;
 end;
writeln;
d:=pend^.data;
writeln('d:',d:5);
writeln;
u:=pbegin;
while u<>nil do
begin
if u^.next=pend  then
                 begin
                 b:=u^.data;
                 writeln('b:',b:5);
                 end;
u:=u^.next;
end;
sum:=d+b;
writeln('summa:',sum:5);   
readln;
readkey;
end.