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

var n,i:integer;beginwrite('n = ');readln(n);i:=1;while i*i<=n do begin write(i,' '); i:=i+1; end;writeln;end.Пример:n = 301 2 3 4 5