Дан набор из n чисел. каждое число отнесли ровно к одному из 5-и мультимножеств: a, b, c, d или e.

по итогу такого распределения чисел получилось так, что все 5 мультимножеств непусты, суммы элементов мультимножеств равны и соблюдается следующее условие:

для любых a∈a, b∈b, c∈c, d∈d и e∈e выполняется неравенство a ≤ b ≤ c ≤ d ≤ e.

определите, правда ли, что такое могло произойти.

формат входных данных

первая строка содержит одно целое число n (1≤n≤8) – размер набора чисел.

вторая строка содержит n целых чисел ai (−10^9≤ai≤10^9) – сами числа набора.

формат выходных данных

выведите yes, если возможно разбиение данных n чисел на мультимножества. иначе выведите no.

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

рыжие и зеленоглазые - 2

рыжие или зеленоглазые - 6

рыжие и не зеленоглазые - 3

не рыжие и не зеленоглазые - 1

картинка должна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.