Нарисуйте ввиде кругов пример поискового запроса: чемпионы& (брасс|плавание)

второй вариант

var x1,y1,z1,x2,y2,z2,d: real;

begin

writeln('введите координаты первой точки');

readln(x1,y1,z1);

writeln('введите координаты второй точки');

readln(x2,y2,z2);

d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));

wrileln(d);

end.