Страницы 177-181 параграф 4 4 вопрос / задание 4, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

program Z_4_4;

var

  xa, ya, xb, yb: integer;

  d1, d2: real;

begin

  write('Введи координаты точек через пробел > ');

  readln(xa, ya, xb, yb);

  d1 := sqrt(sqr(xa) + sqr(ya));

  d2 := sqrt(sqr(xb) + sqr(yb));

  if d1 = d2 then writeln('Точки равноудалены')

  else if d1 < d2 then writeln('1-я точка ближе') 

  else writeln('2-я точка ближе');

end.