5 точек заданы своими координатами. Создать массив из расстояний от этих точек до начала координат . Вычисление расстояния оформить в процедуре ( обязательно )

a) Переводим целую часть 91(10) в 2-ую систему последовательным делением на 2:

91/2 = 45, остаток: 1

45/2 = 22, остаток: 1

22/2 = 11, остаток: 0

11/2 = 5, остаток: 1

5/2 = 2, остаток: 1

2/2 = 1, остаток: 0

1/2 = 0, остаток: 1

91(10) = 1011011(2)

б)Переводим целую часть 675(10) в 8-ую систему последовательным делением на 8:

675/8 = 84, остаток: 3

84/8 = 10, остаток: 4

10/8 = 1, остаток: 2

1/8 = 0, остаток: 1

675(10) = 1243(8)

в)Переводим целую часть 270(10) в 16-ую систему последовательным делением на 16:

270/16 = 16, остаток: 14, 14 = E

16/16 = 1, остаток: 0

1/16 = 0, остаток: 1

270(10) = 10E(16)

Объяснение:

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));

var
  x,y,L:array[1..4] of real;
begin
  Writeln('Введите координаты четырех точек (парами х,y)');
  for var i:=1 to 4 do Read(x[i],y[i]);
  for var i:=1 to 3 do
    L[i]:=Len(x[i],y[i],x[i+1],y[i+1]);
  L[4]:=Len(x[4],y[4],x[1],y[1]);
  var s:=0.0;
  for var i:=1 to 4 do s+=L[i];
  Writeln('P=',s)
end.

Пример
Введите координаты четырех точек (парами х,y)
-5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13
P=46.7405707422041

Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.