Консоль в паскале

[XiN]

Народ,я начинающий программист,по этому пока пытаюсь в консоле и меня есть вопрос. Как написать процедуру приближённого вычисления определённого интеграла методом чебышего? на той фотке всё написано я честно говоря себя в тупик вогнал, пытался через массивы только вот не вышло, а другого способа не наю, подскажите плз.

[XiN]

да к стати вот текст проги которой у меня вышло ток что правельно не правельно? и в чём мои ошибки если,не сложно скажите

var t1,t2,t3,y1,y2,y3,x,y,I,h: real;
a,b: integer;

begin
writeln('Vvedi x');
writeln('x= ');
readln(x);
writeln('Vvedi otrezok a');
readln(a);
writeln('vvedi otrezok b');
readln(b);

t1:= - sqrt(2)/2;
t2:= 0;
t3:= sqrt(2)/2;
h:= (b-a)/3;

if x >= a then
begin
y:= ln(1+x)/(1+sqr(x));
if x <= b then
begin
y:= ln(1+x)/(1+sqr(x));
y1:= y*((b+a)/2 + t1*(b-a)/2);
y2:= y*((b+a)/2 + t2*(b-a)/2);
y3:= y*((b+a)/2 + t3*(b-a)/2);
I:= h*(y1 + y2 + y3);
writeln('I= ',I:5:5);
writeln('nu');
readln;
end
end
else
if x>b then
begin
writeln('koro4e tbl popal');
readln;

if x<a then
begin
writeln('koro4e tbl popal');
readln;
end
end


end.

[russian-stalker]

Дык работает

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var t1,t2,t3,y1,y2,y3,x,y,I,h: real;
a,b: integer;

begin
writeln('Vvedite x');
writeln('x= ');
readln(x);
writeln('Vvedite otrezok a');
readln(a);
writeln('vvedite otrezok b');
readln(b);

t1:= - sqrt(2)/2;
t2:= 0;
t3:= sqrt(2)/2;
h:= (b-a)/3;

if x >= a then
begin
y:= ln(1+x)/(1+sqr(x));
if x <= b then
begin
y:= ln(1+x)/(1+sqr(x));
y1:= y*((b+a)/2 + t1*(b-a)/2);
y2:= y*((b+a)/2 + t2*(b-a)/2);
y3:= y*((b+a)/2 + t3*(b-a)/2);
I:= h*(y1 + y2 + y3);
writeln('I= ',I:5:5);
writeln('Result: ok');
readln;
end
else writeln('error');
end
else
if x>b then
begin
writeln('error');
readln;
if x<a then
begin
writeln('error');
readln;
end
end


end.

[XiN]

а если попробовать через цикл сделать,как тогда получится?просто я хз как цикл прописывать с начала надо.