{$B-}
   program CFFT(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    ��  ��  �t  �[  ��  �G  ��  ��      ��}
   {��                                                                ��}
   {��    �g  �p  ��  ��    �F    �o �� �� �� ����                    ��}
   {��                                                                ��}
   {��    ��    ��    ��    �F    �P �X �W �T �N �P �Q ��             ��}
   {��                                                                ��}
   {��������������������������������������������������������������������}

    {�錾��}
       type   ZISU= array[1..100] of real;
       var    XREAL,XIMAG: ZISU;
              N,NU,A     : integer;
        {
        EXTERNAL procedure FFT( var XREAL,XIMAG: ZISU; var N,NU: integer );
        }
        {$I b:fft.src}
      { �� �C �� �v �� �O �� ��}
       begin
          write(lst,'Input vector');
          writeln(lst);
          read(N,NU);
          readln;
          for A:=1 to N do
             begin
                read(XREAL[A],XIMAG[A]);
                readln;
                write(lst,'   ',XREAL[A],'+(',XIMAG[A],'*i)');
                writeln(lst)
             end;
          FFT( XREAL,XIMAG,N,NU );
          writeln(lst);
          writeln(lst);
          write(lst,'Output vector [THE FAST FOURIER TRANSFORM]');
          writeln(lst);
          for A:=1 to N do
             begin
                write(lst,'   ',XREAL[A],'+(',XIMAG[A],'*i)');
                writeln(lst)
             end
       end.