Question

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

Answer 1

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.