Составить блок-схему и написать программу

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

4)¬a λ b λ ¬c: только это логическое выражение будет равносильно начальному