Даны два целочисленных массива X и Y из 10 элементов.
Написать программу, которая подсчитывает и выдает на экран сумму x[i]*y[i].

...
sum:=0;
for i:=1 to 10 do
  sum:=sum+x[i]*y[i];
writeln(sum);End.