ввести два числа и вывести их произведение на экран

// Произведение целых чисел
var
   p: real;
  i: integer;
  n: integer;
  x: real;
begin
  write('Введите число множителей: ');
  n := ReadInteger;
  p := 1;
  for i:=1 to n do
    begin
      write('Введите множитель: ');
      x := ReadReal;
      p := p*x;
    end;
   writeln('Произведение равно ', p);
end.