Пират нашел на захваченном корабле N золотых слитков, каждый из которых имеет значительный вес ( W i для слитка с номером i ). Во время боя захваченный корабль получил серьёзные повреждения и вот-вот затонет. Пират может увезти на шлюпке на свой корабль только C килограммов груза. Какие слитки он должен выбрать, чтобы увезти как можно больше золота? Входные данные Первая строка содержит грузоподъёмность шлюпки пирата C в килограммах ( 1 ≤ C ≤ 5000 ). Во второй строке записано количество найденных золотых слитков N ( 1 ≤ N ≤ 100 ). В третьей строке записано N натуральных чисел: массы каждого слитка, разделённые пробелами, в порядке возрастания (неубывания). Выходные данные В первой строке программа должна вывести наибольшую массу золотых слитков, которые может вывезти пират. Во второй строке нужно вывести массы взятых слитков в порядке убывания (невозрастания). Если у задачи есть несколько вариантов решения, достаточно вывести любой из них.
var
s: string;
a:array[1..4] of integer;
i:integer;
begin
read(s);
for i:=1 to 4 do a[i]:=0;
for i:=0 to length(s) do
begin
if s[i]=')' then inc(a[1]);
if s[i]='(' then inc(a[2]);
if s[i]='!' then inc(a[3]);
if s[i]='.' then inc(a[4]);
end;
if(a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then write('Funny')else
if(a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then write('Sad') else
if(a[3]>a[2])and(a[3]>a[1])and(a[3]>a[4]) then write('Angry') else
if(a[4]>a[2])and(a[4]>a[3])and(a[4]>a[1]) then write('Deep') else
write('Unclear');
end.