Склавиатуры вводится натуральное число k,затем последовательно вводится k чисел с плавающей точкой. найти сумму этих чисел и наименьшее них.

Var A:array[1..100] of Real;
S,min:real;
i,k:integer;
begin
Readln(k);
For i:=1 to k do
Readln(A[i]);
min:=A[1];
For i:=1 to k do
begin
If A[i]<min then
min:=A[i];
S:=S+A[i];
end;
Writeln('Сумма - ',S,'  минимальный - ',min);
end.