{$B-}
 program CEVAL (input,output);
 {����������������������������������������������������������������}
 {��                                                            ��}
 {��           ��  ��  ��  �w  ��  ��                           ��}
 {��                                                            ��}
 {��    �u    �t    ��  �F  ��   �v   �|   �v                   ��}
 {��                                                            ��}
 {��    �w  ��  ��  ��  �F  ��    ��    �E                      ��}
 {��                                                            ��}
 {��    �w �� �� �� ��  �F  �Q �O �r �r �P �R �Q �U             ��}
 {��                                                            ��}
 {��    ��    �w    ��  �F  ��    �C    ��    �w                ��}
 {��                                                            ��}
 {��    �w �� �w �� ��  �F  �� �w ��   �� �� �� �� �w ��        ��}
 {��                                                            ��}
 {��    ��    ��    ��  �F  �� �U �I �t �[ �� �G �� ��          ��}
 {��                                                            ��}
 {��    �g  �p  ��  ��  �F  �o  ��  ��  ��  ��  ��              ��}
 {��                                                            ��}
 {��    ��    ��    ��  �F  �P �X �W �T �N �X ��                ��}
 {��                                                            ��}
 {����������������������������������������������������������������}

 { �錾�� }
 type ZISU= array[0..99] of real;
 var n,k              :integer;
     p,VALREAL,VALIMAG: ZISU;
{
EXTERNAL procedure EVAL ( p:ZISU; n:integer; var VALREAL,VALIMAG:ZISU );
}
{$I B:EVAL.SRC}

 { �� �C �� �v �� �O �� �� }
  begin
     write(lst,'Input vector');
     writeln(lst);
     read(n);
     readln;
     write(lst,'  n=',n);
     writeln(lst);
     for k:=0 to n-1 do
        begin
           read(p[k]);
           readln;
           write(lst,p[k]);
           writeln(lst)
        end;
     EVAL(p,n,VALREAL,VALIMAG);
     writeln(lst);
     writeln(ist);
     write(lst,'Output vector [THE DISCRETE FOURIER TRANSFORM]');
     writeln(lst);
     for k:=0 to n-1 do
        begin
           write(lst,'  ',VALREAL[k],'+(',VALIMAG[k],'*i)');
           writeln(lst)
        end
  end.