Program P139;
 { Utilizarea unităţii U1 }
uses U1;
var A : Vector;
begin
 writeln('Daţi un vector:');
 Citire(A);
 writeln('Aţi introdus:');
 Afisare(A);
 writeln('sum=', sum(A));
 writeln('min=', min(A));
 writeln('max=', max(A));
 readln;
end.