Дан массив a:erray [1..100] of real
Составить программу нахождения суммы его элементов

program a;uses crt;var i:integer;a: array [1..100] of real;s: real;beginclrscr;for i:=1 to 100 do beginreadln (a [i]);s:=s+a [i];end;writeln (s);end.