Помогите написать псевдокод или программу ** pascal(любой): заданы 4...

Question

Помогите написать псевдокод или программу на pascal(любой):
заданы 4 точки:A,B,C,D,некоторые точки на прямой.надо отсортировать числа и определить расстояние между двумя самыми ближайшими точками

Answer 1

// 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

Answer 2

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