Создать очередь из n целых чисел вычисляющая по формуле А=х*х+1;

[evrey]

Условие задачи.
Создать очередь из n целых чисел вычисляющая по формуле А=х*х+1;
х=1,2,3..n.Найти сумму трех последних элементов очереди.

Помогите переделать прогамму которая у меня есть на паскале согласно условию задачи .Текст програмы в приложениии.

program Ochered;
  uses
    crt;
  type
    pelement=^telement;
    telement=record
             data:integer;
             next:pelement;
    end;

    tqueue=record
           first,last:pelement;
    end;
  var
    i,kol,s,x,k:integer;
    m,l:array [1..10] of integer;
    q:tqueue;

    procedure init;
      var q:tqueue;
        begin
          q.last:=nil;
        end;

    procedure add(x:integer; var q:tqueue);
      var p:pelement;
        begin
          if q.last=nil then
            begin
              q.last:=new(pelement);
              q.first:=q.last;
              q.last^.data:=x;
              q.last^.next:=nil;
            end else
              begin
                p:=new(pelement);
                p^.data:=x;
                p^.next:=nil;
                q.last^.next:=p;
                q.last:=p;
              end;
        end;

   BEGIN
     clrscr;
     s:=0;
     textcolor(White);
     writeln('  Vvedite kol-vo chisel dlya sozdaniya ocheredi');
     write('  Kol= ');
     textcolor(yellow);
     readln(kol);
     textcolor(red);
     writeln('  Vvedite eti chisla');
     textcolor(9);
       for i:=1 to kol do
         begin
           readln(m[i]);
           l[i]:=m[i]+1;
         end;
         Textcolor(green);
         Writeln;
         Writeln;
     writeln('     OCHERED: ');
       for i:=1 to kol do
         begin
           add(l[i],q);
           s:=s+l[i];
           write(' ',l[i],'   ');
         end;
      writeln;
      Writeln;
      Textcolor(11);
      writeln('    SUMMA =',s);
      readln;
    END.

[alexBlack]

Можно было хотя бы попытаться...
Замените конец программы вот на это:

var a:integer;
begin
   writeln(' Vvedite kol-vo chisel dlya sozdaniya ocheredi');
   write(' Kol= ');
   readln(kol);
   Writeln;
   Writeln;
   writeln(' OCHERED: ');
   s:=0;
   for i:=1 to kol do begin
      A := i*i+1;
      add(A, q);
      if i > kol-3 then s:=s+A;
      write(' ',A,' ');
   end;
   writeln;
   Writeln;
   writeln(' SUMMA =',s);
   readln;
end.