Много условий - Turbo Pascal

Формулировка задачи:

Задача:Умножение комплексных чисел. Проблема такая у меня несколько if-ов работают одновременно, ну то есть если вбить числа 3,2 и 3,-2 он выдает вначале первый if а затем второй, как сделать так чтобы он выдавал только первое условие, а второе не показывал?

uses crt;
type
  complex = record
    re, im: real;
  end;
 
procedure Vyvod(var z,x1,x2: complex);
begin
  if (x1.re=0) and (x2.re=0) then writeln(z.re:3:2);
  if z.im = 0 then writeln(z.re:3:2);
  if z.im < 0 then writeln(z.re:3:2, '-', -z.im:0:2, 'i')
  else writeln(z.re:3:2, '+', z.im:0:2, 'i');
end;
 
procedure Proizvedenie(x1, x2: complex; var z: complex);
begin
  z.re := x1.re * x2.re - x1.im * x2.im;
  z.im := x2.re * x1.im + x1.re * x2.im;
end;
 
var
  x1, x2, z: complex;
begin
  clrscr;
  writeln('Vvedite deist. i mnim. chasti a:');
  readln(x1.re, x1.im);
  writeln;
  writeln('Vvedite deist. i mnim. chasti b:');
  readln(x2.re, x2.im);
  writeln; 
  Proizvedenie(x1, x2, z);
  write('A*B=');
  Vyvod(z,x1,x2);
  readln
end.

Решение задачи: «Много условий»

Листинг программы

    if (re<>0) or (im=0) then
      if re=0 then Write(0) else Write(re:0:D);

Объяснение кода листинга программы

В данном коде выполняется проверка двух условий, а затем в зависимости от результата выполняется одно из двух действий:

Если условие re<>0 истинно или условие im=0 истинно, то выполняется первое действие:
- Если условие re=0 истинно, то выводится сообщение на экран (при этом номер экрана, на который выводится сообщение, указан как 0).
- Если условие re<>0 истинно, то выводится значение переменной re (при этом формат вывода числа указан как 0:0:D, где D означает, что число выводится в формате с плавающей точкой).
Если оба условия re<>0 и im=0 ложны, то выполняется второе действие (которое в данном коде не указано, поэтому предполагается, что ничего не происходит). Важно отметить, что в данном коде нет присваивания значения переменной re или im, поэтому предполагается, что эти переменные уже содержат определенные значения до выполнения данного кода.