Комплексные числа в тригонометрической форме

Program complex;
uses crt;
var n,r1,r2,f1,f2:real;
begin
clrscr;
       Writeln('‚Введите значение углов f1 i f2');
       Write('f1=');
       Readln (f1);
       Write('f2=');
       Readln (f2);
          Writeln('‚Введите значения радиусов r1 i r2, при чем r2 не равно 0');
              Write('r1=');
              Readln(r1);
              Write('r2=');
              Readln(r2);
               Writeln('произведение чисел:');
           Writeln('z=',r1*r2,'(','cos','(',f1+f2,')','+isin','(',f1+f2,')',')');
           Writeln('частное чисел:');
           Writeln('z=',r1/r2,'(''cos','(',f1-f2,')','+isin','(',f1-f2,')',')');
          Writeln ('‚Введите степень в которую возвести числа* z1 i z2,');
          Write('n=');
          Readln(n);
          Writeln('Z1 в* Z2 в степени ',n,' равны:');
          Writeln('z1=',exp(n*ln(r1)),'(','cos','(',f1*n,')','+isin','(',f1*n,')',')');
          Writeln('z2=',exp(n*ln(r2)),'(','cos','(',f2*n,')','+isin','(',f2*n,')',')');
             Writeln('Кореня ',n,'-го степеня z1 и* z2 равны:');
             Writeln('z2=',exp(1/n*ln(r1)),'(','cos','(',f2/n,')','+isin','(',f2/n,')',')');
             Writeln('z2=',exp(1/n*ln(r2)),'(','cos','(',f2/n,')','+isin','(',f2/n,')',')');
readln;
end.