Найти произведение квадратов первых k элементов массива A={a[i]}, удовлетворяющих условию a[i]>=c+d. — Pascal(Паскаль)

var
x:array[1..100] of integer;  p,c,d:integer;
i,k,n:byte;
begin
writeln('wwedite c,d');
readln(c,d);
writeln('c+d=',C+D);
write('wwedite kolichestvo elementow = ');
readln(n);
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;
P:=1;
write('wwedite k = ');
readln(k);
begin
for i:=1 to k do
begin
if x[i]>=C+D then
P:=P*sqr(x[i]);
end;
writeln('proizvedenie= ',p);
end;end.