Программа в pascalABC
Даны две точки в плоской прямоугольной системе координат. Напишите программу, которая позволяет вводить с клавиатуры координаты точек, вычислять расстояние их до начала координат и определять - которая из точек (первая или вторая) находятся ближе к началу координат.

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017// Внимание! Если программа не работает, обновите версию!type  Point=(real,real);procedure GetPoint(var Q:Point);begin  var a,b:real;  Write('Введите координаты точки: '); Read(a,b);  Q:=(a,b)end;function Distance(a:Point):=Sqrt(Sqr(a[0])+Sqr(a[1]));begin  var a,b:(real,real);  GetPoint(a);  GetPoint(b);  var d1:=Distance(a);  var d2:=Distance(b);  if d1<d2 then Writeln('Первая точка ближе')  else    if d1>d2 then Writeln('Вторая точка ближе')    else Writeln('Точки равноудалены')end.ПримерВведите координаты точки: 13.7 -11.25Введите координаты точки: 18 12.4Первая точка ближе