Дано натуральное число х. Вывести на экран квадраты целых натуральных чисел, не превышающие число х. Дано: 25 Найти: 1 4 9 16 25

vari,x:integer;beginReadln(x);For i:= 1 to x do  if i*i <= x then Write(i*i, ' ')  else break;  end.Пример:1351 4 9 16 25 36 49 64 81 100 121