Ошибка в программе

[user100]

Дано действительное число х. Вычислить на паскале:
x-((x^3)/3!)+((x^5)/5!)-((x^7)/7!)+((x^9)/9!)-((x^11)/11!)+((x^13)/13!).

uses crt;
var a,n:integer;
     x,s:real;
begin
  clrscr;
  write('x=');
  readln(x);
  n:=1;
  a:=1;
  s:=0;
  while n<=13 do
   begin
   s:=s+x/a;
   x:=x*sqr(x)*(-1);
   n:=n+2;
   a:=a*n*(n-1);
   end;
  writeln('s=',s:3:0);
end.

программа выдает ошибку:"floating point overflow" и указывает на эту строку

x:=x*sqr(x)*(-1);

.
Как можно исправить?

[VKorablev]

попробуйте заменить эту строку на следующую :

x:=x*x*x*(-1);

[eoln]

1) 7 раз в цикле возводится число в куб, итого возводится в 3^7 = 2187 степень - происходит переполнение из-за неверного подхода
2) факториал 13 > 6 млрд, что не влезает не только в integer, но и в longint.
3) цикл while выполняет лишнии итерации по вычислению даже факториала 15.
4) форматированный вывод плохой - не показывает числа после запятой

Внёс минимальные изменения для работоспособности:

uses crt;
var a,n:real;
     z,x,s:real;
begin
  clrscr;
  write('x=');
  readln(x);z:=x;
  n:=1;
  a:=1;
  s:=0;
  while n<=13 do
   begin
   s:=s+z/a;
   z:=z*sqr(x)*(-1);
   n:=n+2;
   a:=a*n*(n-1);
   end;
  writeln('s=',s:3:10);
end.