Составить программу которая вводит с клавиатуры и умножает числа до тех пор пока протизведение не превысит 1000 .вывести на экран произведение

Var
  p, num: integer;
begin
  p := 1;
  while p <= 1000 do
  begin
    read(num);
    p := p*num;
  end;
  writeln(p);
end.