{
TASK: LABDARA
LANG: PASCAL
}
// Sprendimas be masyvo
program Labdara2;
const Duomenys = 'LABDARA.DAT';
      Rezultatas = 'LABDARA.REZ';
var n : integer;            // Vaikø skaièius
    L : integer;            // Labdara
    F, R : text;
    i : integer;
    s1, s2, s : integer;
begin
    Assign(F, Duomenys); Reset(F);
    Read(F, n);              // Skaitomas vaikø skaièius
    Read(F, s2);             // Skaitomi pirmojo vaiko turimi pinigai
    L := 0;
    Assign(R, Rezultatas); Rewrite(R);
    for i := 1 to n - 1 do
      begin
        s1 := s2;            // Antras poroje tampa pirmuoju naujai porai
        Read(F, s2);         // Skaitomi antrojo ið poros pinigai
        s := s1 + s2;        // Poros turimi pinigai
        if s mod 2 = 1       // Jeigu nelyginis skaièius, tai
          then L := L + 1;   //   labdarai skiriamas vienas litas
        s1 := s div 2;       // Pirmojo ið poros pinigai po dalybos
        s2 := s div 2;       // Antrojo ið poros pinigai po dalybos
        Writeln(R, s1);      // Spausdinami pirmojo ið poros gauti pinigai
      end;
    WriteLn(R, s2);        // Paskutiniojo vaiko gauti pinigai
    Write(R, L) ; // Labdarai yra pinigø
    Close(R);
    Close(F);
end.
