Вывести ** экран квадраты нечетных чисел от 1 до 9 при помощи for, иначе не пойдет кто...

Question

Вывести на экран квадраты нечетных чисел от 1 до 9
при помощи for, иначе не пойдет
кто прваильно сделает-очень много баллов
очень прошу, помогите
паскаль

Answer 1

Var
  i:integer;
begin
  for i:=1 to 5 do Write(sqr(2*i-1),' ')  
end.

Результат
1 9 25 49 81

Answer 2

Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
  if i mod 2 = 1 then write(i*i, '   ')
end.

Comments

спасибо!