Даны три числа А,В,С. Если все числа положительны вычислить Z=А+В+С, если все отрицательны –Z=(А+В)*С, в противном случае Z=А*В*С — Pascal(Паскаль)

program PascalGuru;

uses crt;

{ -------------- }
var
  A, B, C, Z: real;

begin
  write('A= ');
  readln(A);
  write('B= ');
  readln(B);
  write('C= ');
  readln(C);

  if (A > 0) and (B > 0) and (B > 0) then
    Z := A + B + C
  else if (A < 0) and (B < 0) and (B < 0) then
    Z := (A + B) * C
  else
    Z := A * B * C;
  writeln;
  writeln('Z= ', Z:0:2);

  readln;

end.