Дано четыре числа - длины ребер параллелепипеда и радиус шара. Определить, можно ли шар поместить в параллелепипед.
Входные данные:Во входном потоке задано четыре вещественных числа - длины ребер параллелепипеда и радиус шара соответственно. Значение всех исходных величин не превышает 30000.
Выходные данные:В выходной поток вывести 'YES' или 'NO'.

Borland Pascal (fpc 2.6) - это перечисление систем программирования, в которых допустим ответ.

Индекс выходит за границы массива

видимо надо увелечить обьем массив

Индекс выходит за границы массива - Это Вы в моей программе такое получили? Значит, что не то ввели.

Ну, либо запустили не в той версии языка.

Шар может поместиться в параллелепипед, если его диаметр будет меньше минимального из ребер параллелепипеда.PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ReadlnString.ToReals;  if a.Take(3).Min>2*a[3] then Writeln('YES') else Writeln('NO');end.Если нужны именно файлы:begin  var a:=ReadAllText('input.txt').ToReals;  var s:=a.Take(3).Min>2*a[3] ? 'YES' : 'NO';  WriteAllText('output.txt',s)end.