Побудова кривих регресій методом парабол

{ writeln ('Esc for Exit');}

writeln;

writeln;

writeln (' x', ' y');

writeln ;

i:=1;

while not EOF (fl) do

begin

read (fl,xn[i]);

read (fl,yn[i]);

writeln ('x[',i,']=',xn[i]:0:2,' ',' y','[',i,']=',yn[i]:0:2);

inc (i); n:=i-1;

end;

writeln;

writeln ('Тиснiть ENTER для продовження');

close (fl);

repeat

chr:=readkey;

if ord(chr)=13 then break;

until false;

end;

procedure obchysl;

var k :integer; i,j,h:integer;

sx: array [1..6] of real;

sy: array [1..2] of real;