Var
a:array [1..100] of integer;
n,l,i,j:integer;
begin
<span>for i:=1 to 20 do</span>
read (a[i]);
for j:=1 to N-1 do
for i:=1 to N-j do
<span>if a[i] > a[i+1] </span>
<span>then </span>
<span>begin </span>
l:=a[i];
a[i]:=a[i+1];
a[i+1]:=l;
end;
for i:=1 to 20 do
<span>if ((a[i] mod 2)=1) and ((a[i] mod 5)=0) </span>
<span>then </span>
begin
writeln (a[i]);
break;
else writeln('таких чисел нет');
end;
<span>end.</span>
Https://wiki.manjaro.org/index.php?title=UEFI_-_Активация_Legacy_Mode
Пятизначное число в троичной системе счисления должно иметь ненулевой пятый разряд, т.е. в десятичной системе счисления его величина должна принадлежать интервалу [3^4; 3^5-1], что составляет [81;242].
В римской записи (а не системе счисления, римляне использовали десятичную) этот интервал запишется как [LXXXI;CCXLII], т.е. будут использованы символы С, I, L, X, V