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

Question

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

YouTuber228 · Answer

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....