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