Дано натуральное число N,составить программу,котоая выводит на экран все натуральные числа,квадрат которых не больше чем N

var    x, n: integer; begin    x := 1;    readln(n);    while x*x <= n do    begin       writeln(x);       x := x + 1;    end; end.