Ввести 2 числа. если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран?

program test; var a, b: integer; begin    write('enter two numbers: ');     readln(a, b);     if a*b < 0 then      writeln(a*b*(-2))    else      writeln(a*b*3);     readln; end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

а необходимо

б достаточно

в необходимо

г достаточно

д необходимо и достаточно