ПОМОГИТЕ СРОЧНО!!!!
Задача 1. Найти сумму пяти целых чисел массива.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
Begin
...:=0;
Writeln ('Введитеэлементымассива');
for i:=1 to 5 do
readln (....);
for i:=1 to 5 do
...:= s+ a[i];
Writeln ('….=',….);
End.

Program z1; usescrt; var a:array [1..5] of integer; s, i:integer; Begin s:=0; Writeln ('Введите элементы массива'); for i:=1 to 5 do readln (a[i]); for i:=1 to 5 do s:= s+ a[i]; Writeln ('s=',s); End.