program MaxSoucet;
{V dane posloupnosti celych cisel hleda maximalni soucet
 souvisleho useku.}

var Cislo: integer;         {ctene cislo}
    Max: integer;           {celkovy maximalni soucet useku}
    Soucet: integer;        {prubezny soucet}

begin
writeln('Zadejte posloupnost cisel:');
read(Cislo);                {prvni cislo}
Max := Cislo;
Soucet := Cislo;            {zatim mame jednoprvkovy usek}
while not eof do
  begin
  read(Cislo);              {novy clen posloupnosti}
  if Soucet < 0 then
    Soucet := Cislo         {vyhodnejsi je zacit novy usek}
  else
    Soucet := Soucet+Cislo; {prodlouzeni useku}
  if Soucet > Max then
    Max := Soucet           {novy maximalni soucet}
  end;
writeln('Maximalni soucet souvisleho useku: ', Max)
end.