Программка в 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 d1lt;d2 then Writeln('1-ая точка поближе')
  else
    if d1gt;d2 then Writeln('2-ая точка поближе')
    else Writeln('Точки равноудалены')
end.

Пример
Введите координаты точки: 13.7 -11.25
Введите координаты точки: 18 12.4
Первая точка ближе