{
  program 7.1
  operations on complex numbers
  Taken from p. 44 of Jensen and Wirth.
}
program complex(output);
const
  fac = 4;
type 
  complex = record
    re,im: integer
  end;
var
  x,y: complex;
  n: integer;
begin
end.