Составить программу ,которая будет выдавать последовательность квадратов натуральных чисел от 1 до n, где n вводится с экрана.Заранее спасибо

var x,n: integer; begin write('n = '); readln(n);     x := 1; while sqr(x) < n do begin write(sqr(x),' ');         x := x + 1 end;   readln end.