program G1_17_6;
var i:integer;
    S1,S2,Smin:real;
    c:array [1..20] of real;
BEGIN
writeln('Введите массив из 20 чисел');
S1:=0;
for i:=1 to 5 do begin
read(c[i]);
S1:=S1+c[i];end;
writeln('S1= ',S1:6:0);
S2:=0;
for i:=15 to 20 do begin
read(c[i]);
S2:=S2+c[i];end;
writeln('S2= ',S2:6:0 );
if (S1<S2) then begin
writeln('Smin=S1 ');
end else
begin
writeln('Smin=S2 ');end;
END.