Напишите программу вывода последовательности чисел: 1 9 25 49 81 121 на Паскале через while надо как-то)

var x:integer;

begin

x := 1;

while x<13 do

begin

write(x*x,' ');

x := x + 2;

end;

end.