Const=10;
var a:array[1..n] of integer;
max,min: integer;
begin
for i:=1 to n do
readln(a[i]);
max:=-32768
min:=32767
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln(max*min)'
end.
Начинай расшифровку всегда с конца. Так проще.
Сообщение в расшифрованном виде выглядит так: BFBAA
То есть встречаются буквы A - 2 раза
В - 2 раза
F - 1 раз
11,2201101322<span>4 в четверичной</span>