Обчислити відстань між двома точками з координатами (x1, y1), (x2, y2) паскаль

Var
  x1,x2,y1,y2,d:real;
begin
  write('Введите х1: ');
  readln(x1);
  write('Введите у1: ');
  readln(y1);
  write('Введите х2: ');
  readln(x2);
  write('Введите у2: ');
  readln(y2);
  d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  writeln('ответ: ',d);
end.

фон- основной цвет

ЭКОНОМИЧНОСТЬ — одна из основных составляющих успеха хозяйственной деятельности, суть которой заключается в разумной и рациональной экономии

ЭРГОНОМИКА-Научно-практическая дисциплина, изучающая трудовые процессы с целью создания оптимальных условий труда росту его производительности.

Программи́ст — специалист, занимающийся программированием, то есть созданием компьютерных программ.

Пользователь — лицо или организация, которое использует действующую систему для выполнения конкретной функции.

цвет-окраска

программа-Изложение содержания и цели деятельности политической партии, организации или отдельного деятеля.

дизайн-Художественное конструирование предметов быта, интерьеров, промышленных изделий и т. п.

проект-Разработанный план сооружения, устройства чего-н.

меню-Подбор кушаний, а также листок с перечнем их.

качество-Наличие существенных признаков, свойств, особенностей, отличающих один предмет или явление от других.

диалог-литературная или театральная форма устного или письменного обмена высказываниями между двумя и более людьми

интерфейс-граница между двумя функциональными объектами, требования к которой определяются стандартом;

звук-Воспринимаемое слухом физическое явление, порождаемое колебательными движениями частиц воздуха или другой среды.

    ' // Процедура сортировки алгоритмом выборки
    Sub SelectionSort(ByRef array() As Integer, ByVal ToUpper As Boolean)
        Dim Dump As Integer
        Dim Index As Integer
        Dim Work As Integer

        Do
            For i As Integer = Work To UBound(Array)
                If ToUpper = True Then
                    If (Array(Index) > Array(i)) Then Index = i
                Else
                    If (Array(Index) < Array(i)) Then Index = i
                End If
            Next

            Dump = Array(Index)
            Array(Index) = Array(Work)
            Array(Work) = Dump
' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
            Work += 1
            Index = Work
        Loop Until (Work > UBound(Array))
    End Sub