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

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