Вычислить значение функции, ошибка какая-то Опции

[MaxiMum]

Здравствуйте!!!
Помогите , пожалуйста, написал алгоритм, но там явная ошибка, только не пойму где.
Задача такая: нужно вычислить значение функции
w=sqrt(a*t*t+b*sin(t)+1) при t<0.1
w=a*t+b при t=0.1
w=sqrt(a*t*t+b*cos(t)+1) при t>0.1
a=2.5
b=0.4
t принадлежит отрезку [-1;1] при шаге дельта t равном 0,1

PROGRAM INTEGRAL;
VAR A, B, TK, TN, DT, T, W: REAl;
Begin
READ (A, B, TN, TK, DT);
T:=TN;
REPEAT
IF T<0.1 THEN W:=SQRT(A*T*T+B*SIN(T)+1);
IF T=0.1 THEN W:=A*T+B
ELSE W:=SQRT(A*T*T+B*COS(T)+1);
WRITELN ('W=',W,'T=',T:4:1,'A=',A:3:1,'B=',B:3:1); T':=T+DT
UNTIL T>TK
END

Сообщение отредактировано: MaxiMum - 11.12.2006 17:29