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

Шар может поместиться в параллелепипед, если его диаметр будет меньше минимального из ребер параллелепипеда.

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.