program ht;
{ ************************************ }
var
p, code: integer; { описание переменных }
i, j, n: integer;
sum: integer;
s, x: string;
A: array [1 .. 100] of integer;
begin
write('Vvedite stroky cisel (cerez probel): ');
readln(s); { считываем с клавы строку с числами }
j := 0; { обнуляем кол-во чисел в строке }
repeat { начало цикла записывающего числа из строки - в массив }
inc(j); { увеличиваем счётчик кол-ва чисел в строке }
p := pos(' ', s); { смотрим где есть текущий пробел }
x := copy(s, 1, p - 1); { копируем число до пробела }
if p = 0 then
x := s; { если пробелов не осталось - то эта вся строка явл. числом }
val(x, i, code); { преобразовываем строку-число в ЧИСЛО }
A[j] := i; { записываем текущее число в МАССИВ }
delete(s, 1, p); { удаляем из строки проверенное число }
until p = 0; { конец цикла }
n := j; { "n" присваиваем кол-во чисел (размер массива) }
sum := 0; { обнуляем переменную с суммой }
for i := 2 to n do
sum := sum + (A[i - 1] * A[i]);
{ идём по массиву и вычисляем сумму по формуле }
writeln('Summa= ', sum); { выводим получившеюся сумму на экран }
readln;
end.