. Внести в программу изменения таким образом, чтобы программа выводила сумму…

Program Massiv_1a; Var a: Array [1… 20] Of Integer i,k,s: Integer Begin write ('Введите количество элементов массива не более 20: '); Read (k); For i: =1 To k Do Read (a[i]); s: =0; For i: =1 to k do if a[i]<0 then s: =s+a[i]; Writeln ('Сумма <0',s); End. Жирным помечено то что добавлено