Тип входных,то есть вводимых данных - integer(целые числа).
Тип выходных,то есть выводимых данных будет real,так как при нахождении среднего арифметического числа мы делим их сумму на 3.
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.
Возможно стоит выражение взять в скобки
Допустим число 11 первое число 1×10=10
11=101