(*$B- ALGORITHMUS 2.10 UND 2.8*)
PROGRAM qwu;
TYPE komplex = RECORD re,im: real END;
VAR x,y: komplex;

(*$I topolar *)
(*$I csqrt *)
(*$I mult *)

BEGIN
  REPEAT
    writeln('Komplexe Quadratwurzel: Real- und Imaginaerteil eingeben');
    read(x.re,x.im);
    csqrt(x,y);
    writeln('Wurzel =',y.re,' + I *  ',y.im);
    writeln('Kontrolle');
    mult(y,y,y);
    writeln(x.re,x.im,y.re,y.im);
  UNTIL eof
END.