Алан сильно любит решать по программированию и играть шахматы. в обоих сферах он хочет преуспеть, стать легендарным гроссмейстером. айдос как опытный тренер предложил ему у него потренироваться.
у айдоса определенное расписание на каждый из следующих n дней. в каждый из дней айдос тренирует только один вид, либо программирование, либо шахматы. алан хочет выбрать несколько подряд идущих дней для тренировки. также алан заметил, что если два дня подряд тренироваться в одной и той же сфере, то он устает, т.е. алану надо чередовать шахматы и программирование. алану выбрать максимальное количество подряд идущих дней так, чтобы он за этот период не устал тренироваться.
формат входного файла
первая строка входных данных содержит целое цисло n (1< =n< =2*1) — количество тренировочных дней у айдоса. вторая строка содержит n цифр 0 или 1 без пробелов —i-я цифра 0 если в i-й день айдос тренирует программирование, иначе айдос тренирует шахматы.
формат выходного файла
выведите одно число — максимальное количество подряд идущих тренировочных дней для алана.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.