Program P77;
 { Suma componentelor variabilei x de tip Vector }
type Vector=array[1..5] of real;
var x : Vector;
    i : integer;
    s : real;
begin
 writeln('Daţi 5 numere:');
 for i:=1 to 5 do readln(x[i]);
 writeln('Aţi introdus:');
 for i:=1 to 5 do writeln(x[i]);
 s:=0;
 for i:=1 to 5 do s:=s+x[i];
 writeln('Suma=',s);
 readln;
end.