uses crt;
const nmax=20;
var x,y:array[1..nmax] of integer;
n,i:byte;
xc,yc:integer;
r,sr:real;
begin
randomize;
repeat
write('Количество заводов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
begin
x[i]:=10+random(50);
y[i]:=10+random(50);
end;
writeln('Координаты:');
write('N');
for i:=1 to n do
write(i:4);
writeln;
write('X');
for i:=1 to n do
write(x[i]:4);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:4);
writeln;
writeln('Введите координаты места добычи сырья');
read(xc,yc);
sr:=0;
for i:=1 to n do
begin
r:=sqrt(sqr(x[i]-xc)+sqr(y[i]-yc));
writeln('Расстояние до завода ',i,'=',r:0:1);
sr:=sr+r
end;
writeln('Среднее расстояние=',sr/n:0:1)
end.