Конструирование программ со структурой вложенных циклов

program;
 var 
  x,x0,hx,xn,y,P:real;
  k,n,kp,np:integer;
 begin
  write('Введите начальное значение числа x0 = ');
  readln(x0); {входные данные}
  write('Введите положитльное значение шага hx = ');
  readln(hx); {входные данные}
  write('Введите конечное значение числа xn = ');
  readln(xn); {входные данные}
  write('Введите предел произведения kp = ');
  readln(kp);
  write('Введите предел произведения np = ');
  readln(np);
  Writeln('X0 = ',x0,' HX = ',hx,' XN = ',xn);
  Writeln('kp = ',kp,' np = ',np);
  {Табулирование функции}
  x:=x0;
  repeat {Начало цикла}
   P:=1;
   for k:=0 to kp do 
    begin
     for n:=1 to np do 
       P:=P*(k+(sin(x)/n));
       y:=P;
     end;
    writeln('x = ',x,' y = ',y);
     x:=x+hx;
  until x>xn+hx/2; {конец цикла}
 end.