Нужна помощь в написании программы( можно писать на языке паскаль или 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;beginwriteln('vvedite a=');readln(a);writeln('vvedite massiv x=');for i:=1 to n doread(x[i]);writeln ('vvedite massiv y=');for j:=1 to n doread(y[j]);k:=0;s:=0;for i:=1 to n do for j:= 1 to n doif x[i]*y[j]<=a then begink:=k+1;s:=s+(x[i]*y[j]);end;writeln ('kolicestvo=',k,' summa=',s);readln;end.