Зажги свет. Есть четыре выключателя, расположенных последовательно в ряд. Каждый может находится в одном из двух положений - выключено (обозначается нулем) и включено (обозначается

единицей). Свет включается, если есть хотя бы одна пара включеннных выключателей, расположен-
ных не рядом друг с другом. Напишите программу, которая по состоянию выключателей определяет,

должен ли гореть свет.
Входные данные. В единственное строке задается четыре числа, каждое из которых равно 0 или 1 и
определяет положение выключателя.
Выходные данные. Выведите YES, если при таком состоянии выключателей свет загорится, и N0 в
противном случае.
Примеры входных и выходных данных

ввод вывод

1 0 1 0 YES
0 0 1 1 N0
Нужен код на паскаль

Чтобы контрольная работа получила высший , необходимо как следует постараться: изучить теорию написания контрольных работ, посмотреть методички и гост, составить план и многое другое. как видите, решение контрольной работы не такая уж и простая . но продвинутые студенты, которые знают цену своему времени и силам, заказывают решение контрольных работ у нас. это быстро, качественно и доступно каждому. мы не пользуемся услугами посредников, чему цены на наши услуги значительно ниже, а работа выполняется быстрее. образец плана контрольной работы конечно, всегда будут студенты, которые любят самостоятельно писать контрольные работы. им мы тоже стараемся всеми силами. поэтому мы подобрали несколько качественных примеров плана контрольных работ, которые демонстрирует практически идеальное выполнение плана. опираясь на эти примеры, не забывайте и о теории. план контрольной работы должен быть детально проработан. в нем вы должны указать, сколько точно будет разделов, глав и параграфов. кроме того, им нужно дать названия, которые будут уникальными (т.е. не повторяются в тексте работы больше одного раза). план также определить, какой объем займет ваша контрольная работа. распределяя главы, продумывайте, что вы будете в них писать, какая информация вам для этого понадобится, что вам для этого не хватает. если вы будете четко следовать нашим советам, вы без труда сможете самостоятельно написать план к любой контрольной работе. взято со страницы:

Var     arr: array[1..100] of real;     n: integer;     sum, op: real;     i: integer;   begin     write('vvedite n ');     readln(n);           for i : = 1 to n do           begin                   write('vvtdite ',i,'-oe chislo ');                     readln(arr[i]);         end;         sum : = 0;         for i : = 1 to n do             sum : = sum + arr[i];     writeln('summa= ', sum); end.