Распечатать произведения чисел а и в изменяющихся от 17 и -25 с шагом -3 и 5 до тех пор, пока это произведение - отрицательно число

Var A,B :integer;
begin
A:=17;
B:=-25;
while (a*B)<0 do begin 
  writeln (A*B); 
  A:=A-3; 
  B:=B+5;
  end;
end.