Создать массив натуральных нечетных чисел длины n, и вывести квадраты элементов в строку. блок схему

For i:=1 to sqr(n) do
a[i]:=0; i:=1;
while(i<n)do begin
if(i mod 2 <> 0)then begin
a[i]:=1;
g:=i;
inc(i);
end
else inc(i);
end;
for i:=1 to g do
if(a[i]=1)then write(sqr(i),' ');
readln;
readln;
end;

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  число: ЦЕЛ;
  шестн: РЯД 32 ИЗ ЗНАК;
  сч: ЦЕЛ;
  зн: ЗНАК;

ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК;
УКАЗ
  ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра)
  ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН
КОН ШестнЦифра;

УКАЗ
  число := Приём.Число();
  шестн := "";
  Вывод.Цепь("^");

  ПОКА число > 0 ВЫП
    шестн[ДЛИНА(шестн) + 1] = 0X;
    шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16);
    число := число ДЕЛИТЬ 16
  КОН;

  ОТ сч := 0 ДО ДЛИНА(шестн) - 1 ВЫП
    зн := шестн[сч];
    шестн[сч] := шестн[ДЛИНА(шестн) - 1 - сч];
    шестн[ДЛИНА(шестн) - 1 - сч] := зн
  КОН;

  Вывод.Цепь(шестн)

КОН Задание.

1.a) Из объектов
2.b) Растровое изображение
3. c) Увеличить растровое изображение
4. c) Теряются мелкие детали
5.b) Векторный
6. a) Точка
7. c) От яркости цветов на изображении
8.a) Количество цветов в палитре
9.b) Microsoft Paintc) Adobe Photoshop
10.b) Изменение размера происходит без потери качества
11.b) Растровое изображение
12.c) RGB модель
13.a) принтерe) дисплейf) графопостроитель (плоттер)
14.b) Corel Draw
15.b) растровой графики.
16.c) зеленый
17.a) JPEG  c) GIF  d) TIF  e) PNG  f) BMP  h) PCD
18.b) 256
19.a) HSB
20.b) частота дискретизации