Составить программу вычисления функции на языке паскаль

       (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;vara,b,x:real;shag:real;T:real;beginShag:=0.5;a:=2.1;b:=-0.29;x:=0;While x<=7 dobeginIf x<2.8 thenT:=(a+b)/exp(-x)+sin(x);If (2.8<=x) and (x<6) thenT:=(A+B)/(x+1);If X>=6 thent:=exp(-x)+Sin(X);Writeln('при Х=',x,'  T=',t:4:2);X:=x+shag;

end;

end.

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