Ккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккк
Берём 2 людоедов перевозим их на 2 берег берём с самой 1 людоеда плывём на 1 высаживаем людоеда и берём 2 людей перевозим на 2 высаживаем берём людоеда плывём на 1 берег берём 2 людоеда и везём на 2 берег)
Ответ 3)
Так как высказывание истинно, когда истинно хотя бы одно.
A:array[1..10] of integer;
b, d:array[1..10] of string;
c:array[1..10] of string;
m, n, i, k, t :integer;
begin
for i:=1 to 10 do
readln(a[i]);
readln(b[i]);
readln(c[i]);
t:=1;
for i:=1 to 10 do
if (2014-a[i])>65 then begin d[t]:=b[i]; t:=t+1; end;
for i:=1 to 10 do
if c[i]='м' then m:=m+1
else n:=n+1;
m:=m\10*100;
n:=n\10*100;
for i:=1 to t do
writeln(d[i]);
writeln(n);
writeln(m);
readln;
end.