Разработать программу построения графика интерполяционного полинома

[13xxx]

Разработать программу построения графика интерполяционного полинома с использованием формулы много интервальной квадратичной интерполяции.

Таблица функции:

х 0.10 0.20 0.30 0.40 0.50 0.60
у 230 560 80 150 100 450

помогите пожалуйста, конец семестра никак лабу сдать не могу([/QUOTE]

вот начало, нужно ещё построить график и вывести его:


program lab3;
const
n=6; {chislo uslov}
h=0.1;
var
i: integer; {}
p, {}
xx, {}
yy: real; {}
x, {}
y: array [0..n-1] of real; {}

begin
x[0]:=0.1;
x[1]:=0.2;
x[2]:=0.3;
x[3]:=0.4;
x[4]:=0.5;
x[5]:=0.6;

y[0]:=230;
y[1]:=560;
y[2]:=80;
y[3]:=150;
y[4]:=100;
y[5]:=450;

writeln('Vvedite x');
readln(xx);

i:=Round (2*trunc((xx-x[0])/2/h)+1);
p:=xx-x[0]-i*h;
yy:=p*(p-1)/2*y[i-1]+(1-p*p)*y[i]+p*(p+1)/2*y[i+1];
writeln(yy);
end.