Var a,i,sum:integer;
      x: array [1..12] of integer;
      z: array [1..12] of real;
begin
        for i:=1 to 12 do
             begin
                      x[i]:=random(20)+1;
                      writeln('x[',i,'] = ',x[i])
              end;
         sum:=0;
         write('Введите а = '); readln(a);
         for i:=1 to 12 do sum:=sum+x[i]-a;
         for i:=1 to 12 do
             begin
                      x[i]:=sqr(x[i]);
                      z[i]:=sum/x[i]
             end;
          for i:=1 to 12 do writeln('z[',i,'] = ',z[i])
end.