Помогите расписать задачу на язык Паскаль

program z_1;

var x1, y1, x2, y2, AB: real;

begin

 writeln ('Введите координаты точек A и B:');

 readln (x1, y1, x2, y2);

 AB:=sqrt(sqr(x1-x2)+sqr(y1-y2));

 writeln('Расстояние от точки A до B равно', AB);

end.

А вторая даже для меня сложновато