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

//прога на Pascal`е
var
a, b, i: integer;
begin
a:=17;
b:=-25;

while (a*b)lt;0 do
begin
inc (i);
writeln (i, ) a = , a, ; b = , b, ; a*b = , a*b);
inc (a, -3);
inc (b, 5);
end;

end.