Var a : Integer;
var b : Array[1..20] of Integer; //создаем массив под 20 мест
begin
for var i:=1 to 20 do //цикл от 1 до 20
Read(b[i]);//каждый тик считываем и заносим в массив
for var i:=1 to 20 do //цикл от 1 до 20(для перебора массива)
a+=b[i]; //складываем все элементы масссива
Writeln(a);
end.