чуваки выручайте
для проги надо сделать блок-схемку сам немогу :(((
 
{$N+}  {директива компилятора - для счёта extended}
Var i,n            :integer;
b0,b1,sum1,sum2,sum3,sum4         :extended;
mx:array[1..100] of real;
my:array[1..100] of real;
begin
writeln(‘Введите количество значений (n<100)’);
readln(n);
for i:=1 to n do
begin
writeln(‘Введите x’,1);   {ввод значений x}
readln(mx);
writeln(‘Введите y’,i);    {ввод значений y}
readln(my);
end;
{mx[1]:=1; my[1]:=2/mx[1]; n:=10;
For i:=2 to n do
Begin
mx:=mx[i-1]+1;
my:=2/mx;
end;}
for i:=1 to n do
begin
sum1:=sum1+(my/mx);  {сумма x/y}
sum2:=sum2+my;   {сумма x}
sum3:=sum3+(1/(mx*mx));   {сумма 1/x^2}
sum4:=sum4+(1/mx));   {сумма 1/x}
end;
b0:=((sum1/sum3)-(sum2/sum4))/((sum4/sum3)-(n/sum4));  {вычисление b0}
b1:=(sum2-n*b0)/sum4;     {вычисление b1}
writeln(‘ответ: y=’,b0,’*x^’,b1,’’)     {вывод y=box^b1}
readln        
end.