Нужна помощь в написании программы (можно писать на языке паскаль или 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.