var
   input: Text;
   a: array[1..80] of Integer;
   n, i: Integer;
begin
     Assign(input, 'input.txt');
     Reset(input);
     i := 0;
     while not Eof(input) do
     begin
          i := i+1;
          Read(input, a[i]);
     end;
     Close(input);
end.