Ответ:

3)

program rasst;

var

d,xa,ya,xb,yb:real;

begin

writeln('Введите координаты точек А(xa,ya), В(xb,yb)');

write('xa=');

readln(xa);

write('ya=');

readln(ya);

write('xb=');

readln(xb);

write('yb=');

readln(yb);

d:=sqrt(sqr(xb-xa)+sqr(ya-yb));

writeln('|AB|=',d:4:2);

readln;

end.  

Объяснение:Надеюсь я вам помог...