Если использовать бинарную систему, то есть: 0 - нет звука, 1 - есть какой-либо звук, то запись: "0001", будет звучать как небольшая пауза и короткий гудок.
Однако, запись: "1" или "11111" будет звучать, как шум.
Запись в виде наилучшей последовательности, к примеру: "00110110001001010101" может дать определённую звучную мелодию.
Все расписано на фото, про знаки препинания не забывай
А8=7*1000000+2*100000+5*10000+1*100+3+1*0,1+2*0,01
Var
max, i : integer;
a : array [1..20] of integer;
begin
max := -1;
for i := 1 to 20 do read (a[i]);
for i := 1 to 20 do
if (a[i] < 1000) and (a[i] > 99) and (a[i] mod 4 = 0) and (a[i] > max) then
max := a[i];
if max > -1 then write (max) else write ('Nety');
end.