Вывести на экран сумму элементов массива (самое легкое решение)

Uses crt;var i,s:integer; a:array [1..100] of integer;
beginfor i:=1 to 4 do begin writeln ('vvedite massiv');readln(a[i]);end;for i:=1 to 4 do begin s:=s+a[i];end;writeln(s,' ');end.