Написать псевдокод или программу на pascal(любой): заданы 4 точки: a,b,c,d,некоторые точки на прямой.надо отсортировать числа и определить расстояние между двумя самыми ближайшими точками

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Write('Введите значения для точек A,B,C,D: ');
  var m:=ReadArrInteger(4).Sorted;
  Print('Отсортированные:'); m.Println;
  Writeln('Расстояние между ближайшими точками равно ',
    m.Pairwise((x,y)->y-x).Min)
end.

Тестовое решение
Введите значения для точек A,B,C,D: 25 13 5 31
Отсортированные: 5 13 25 31
Расстояние между ближайшими точками равно 6

Прога в приложении