Программа на Pascal для вычисления скалярного произведения двух восьмимерных векторов a и b:

program ScalarProduct;
const
N = 8; // размерность пространства
type
Vector = array$$\mathrm{1..}N$$ of Integer;
var
a, b: Vector;
scalarProduct: Integer;
i: Integer;
begin
// Ввод элементов векторов a и b
writeln${}^{\prime }Введитеэлементывектораa{:}^{\prime }$;
for i := 1 to N do
begin
write${}^{\prime }a{[}^{\prime },i{,}^{\prime }]{:}^{\prime }$;
readln$a[i]$;
end;
writeln${}^{\prime }Введитеэлементывектораb{:}^{\prime }$;
for i := 1 to N do
begin
write${}^{\prime }b{[}^{\prime },i{,}^{\prime }]{:}^{\prime }$;
readln$b[i]$;
end;
// Вычисление скалярного произведения
scalarProduct := 0;
for i := 1 to N do
begin
scalarProduct := scalarProduct + a$$i$$ * b$$i$$;
end;
// Вывод результата
writeln${}^{\prime }Скалярноепроизведениевекторовaиb{:}^{\prime },scalarProduct$;
end.

Данная программа позволяет ввести элементы двух восьмимерных векторов a и b, после чего вычисляет и выводит их скалярное произведение.