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

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