Нужна в написании программы( можно писать на языке паскаль или delphi). : при заданной величине а и заданных элементах x1, x2, …, xn и y1, y2, …, yn определить число произведений вида xiyi, удовлетворяющих условию xiyi ≤ а, и сумму таких произведений.

Const n=5;
var  x,y:array[1..n] of integer;
i,j,a,s,k:integer;
begin
writeln('vvedite a=');
readln(a);
writeln('vvedite massiv x=');
for i:=1 to n do
read(x[i]);
writeln ('vvedite massiv y=');
for j:=1 to n do
read(y[j]);
k:=0;
s:=0;
for i:=1 to n do 
for j:= 1 to n do
if x[i]*y[j]<=a then begin
k:=k+1;
s:=s+(x[i]*y[j]);
end;
writeln ('kolicestvo=',k,' summa=',s);
readln;
end.