<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrInteger(ReadInteger('n='));
var max := a.Max;
var i := a.IndexesOf(t -> t = max).ToArray;
Print('Максимум, равный', max, 'у элемента(-ов) номер');
i.Select(t -> t + 1).Println(', ')
end.
<h2>Пример</h2><h3>n= 15</h3><h3>-13 16 6 -12 -14 4 -12 -12 12 6 -10 2 16 -7 8</h3><h3>Максимум, равный 16 у элемента(-ов) номер 2, 13</h3>
Шар может поместиться в параллелепипед, если его диаметр будет меньше минимального из ребер параллелепипеда.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString.ToReals;
if a.Take(3).Min>2*a[3] then Writeln('YES') else Writeln('NO');
end.
<u>Если нужны именно файлы:</u>
begin
var a:=ReadAllText('input.txt').ToReals;
var s:=a.Take(3).Min>2*a[3] ? 'YES' : 'NO';
WriteAllText('output.txt',s)
end.
<span>for i:=1 to 5
оно больше 5 и не может быть </span>