Дан массив вещественных чисел x(x1?x2,..,xn).Найти произведение положительных элементов массива и подсчитать их число.

const  n=5;var  x:array[1..n]of real;  i,k:integer;  p:real;beginp:=1;for i:=1 to n do  begin  readln(x[i]);  if x[i]>0 then    begin    p:=p*x[i];    k:=k+1;    end;  end;writeln('p=',p); writeln('k=',k); end.