программы с циклом ПОКА и ДО (Тема 8) (2)

program OtrProiz;

var
  a, b, p: integer;
  g: byte;

begin
  g := 0;
  write('Введите два числа: ');
  readln(a, b);
  p := a * b;
  Writeln('Сейчас программа выведет все отрицательные произведения с шагом 3 и 5 соответственно');
  while p < 0 do
  begin
    g := g + 1;
    writeln(g, '. ', a, ' * ', b, ' = ', p);
    a := a + 3;
    b := b + 5;
    p := a * b;
  end;

end.