Составить программу вычисления функции на языке паскаль (a+b)/ (e^-x+sin(x)) t={ (a+b)/(x+1) e^-x+sin(x) условие: x< 2.8; 2.8< =x< 6; x> =6 исходные данные: a=2.1; b=-0.29 шаг изменения: x принадлежит [0; 7]; дельта x=0.5

program lol;
var
a,b,x:real;
shag:real;
T:real;
begin
Shag:=0.5;
a:=2.1;
b:=-0.29;
x:=0;
While x<=7 do
begin
If x<2.8 then
T:=(a+b)/exp(-x)+sin(x);
If (2.8<=x) and (x<6) then
T:=(A+B)/(x+1);
If X>=6 then
t:=exp(-x)+Sin(X);
Writeln('при Х=',x,'  T=',t:4:2);
X:=x+shag;

end;

end.

надеюсь Если что нетак пиши