Разработать программу вывода квадрата нечетных чисел меньше 100 — Pascal(Паскаль)

var
 i:integer;
begin
 for i:=1 to 99 do
  if odd(i) then write(i*i,' ');
end.

var
 i:integer;
begin
 for i:=1 to 50 do
  write(sqr(2*i-1),' ');
end.

var
 i:integer;
begin
 if i mod 2<>0 then write(i*i,' ');

end.