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

// Произведение целых чисел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.