Разработать алгоритм с применением вложенных базовых структур «цикл с предусловием» или «цикл с постусловием», составить

uses crt;
const xn=1.0;
      xk=2.0;
      dx=0.2;
      e=0.0001;
function f(x:real):real;
begin
f:=sin(x)/x;
end;
var x,t,s:real;
    n:integer;
begin
//выводим шапку
writeln('Таблица значений функции y=sin(x)/x');
writeln('представленной разложением в ряд Тейлора');
writeln('на интервале [',xn:0:2,';',xk:0:2,'] с шагом ',dx:0:2,' с точностью ',e:0:4);
writeln('-------------------------------');
writeln('|  x  |  s(x)  |  n  |  f(x)  |');
writeln('-------------------------------');
//начнем с начала интервала
x:=xn;
while x<=xk do //пока не конец
 begin
  n:=0;//нулевой член ряда
  t:=1; //его значение
  s:=t; //первая сумма
  while abs(t)/(2*n+1)>e do//пока очередной член ряда больше точности
   begin
    n:=n+1;//увеличиваем n на 1
    t:=-t*sqr(x)/(2*n)/(2*n+1); //умножаем предыдущий член на x^2 и делим на 2 следующих числа
    s:=s+t//и прибавляем к сумме
   end;
  writeln('|',x:5:2,'|',s:8:4,'|',n+1:3,'  |',f(x):8:4,'|'); //выводим аргумент значение суммы
                                                             //число слагаемых  и аналитическое значение
  x:=x+dx;//увеличиваем х на 1 шаг
 end;
writeln('-------------------------------');
end.