Считаем буквы А, Д и Р цифрами 0, 1 и 2 троичной системы счисления.
Итого нам нужно перевести 200000 в десятичную. Итак, 3^5 * 2 = 486.
246 во 2
посмотри в интернете там выйдет
Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.