if v=1 then
  begin
    x:=xn;
    i:=1;
    writeln('nachali...');
    while x<=a do
    begin
      y:=cos((x)/(25));
      tab[i,1]:=x;
      tab[i,2]:=y;
      writeln('Pri X=', tab[i,1]:10:7, ' => Y=', tab[i,2]:10:7); {Это дописал я, возможно станет понятнее}
      x:=x+hx;
      i:=i+1;
    end;
    writeln('prodolguli...');
    while (x<=xk+hx) and (x>a) do
    begin
      y:=sqrt(exp(3*ln(x))+4);
      tab[i,1]:=x;
      tab[i,2]:=y;
      writeln('Pri X=', tab[i,1]:10:7, ' => Y=', tab[i,2]:10:7); {Опять я}
      x:=x+hx;
      i:=i+1;
    end;
    writeln('----------'); {Разделил на 2 части :)}
    for i:=1 to 7 do {Это Ваш вывод, правда цифру 7 лучше вычислить;)}
      writeln('Pri X=', tab[i,1]:10:7, ' => Y=', tab[i,2]:10:7);
  end;