х в квадрате складывается n раз,найти результат с помощью цикла for-to-do — Pascal(Паскаль)

uses wincrt;

var
  i, n: integer;
  s, x: real;

begin
  clrscr;
  write('Vvedite x: ');
  readln(x);
  write('Vvedite skolko raz slajivat: ');
  read(n);
  s := 0;
  for i := 1 to n do
  begin
    s := s + sqr(x);
  end;
  write('s=', s:4:2);

End.