21 ! 4. составить программу, которая печатает ряд нечетных чисел от 1 до 20 (на кумире)

Алг печать нечетных чисел нач . цел i,x . нц для i от 1 до 20 . x: =mod(i, 2) . если (x< > 0) . . то . . вывод i, нс . все . . кц кон

Var a: array[1..100] of integer; //объявляем целочис. массив из 100 элементов i,j,c,k,n: integer; //целочислительные переменные f: boolean; // логические переменные begin // начало программы writeln('vvedite razmer massiva'); //выводим текст readln(n); //вводим переменную n writeln('vvedite el-ty massiva'); //выводим текст for i: =1 to n do  //повторить n раз begin write('a[',i,'] = '); readln(a[i]); end; {отвратный кодстайл. в данном цикле заполняем массив n количеством элементов. как будто нельзя было объявить динамический массив} writeln('massiv');       //вывод текста for i: =1 to n do write(a[i]: 4);   //выводим n элементов массива writeln; //сносим строчку k: =2; //k=2 while k< =n do //пока k меньше или равно n выполнять begin //начало тела цикла c: =a[k]; //с=a[k] i: =1;     //i=1 if c while f do //ошибка, странное сочетание логического оператора и цикла с предусловием begin //начало тела вложенного цикла, объявленного ошибочно a[k-i+1]: =a[k-i]; {элементу массива a, индекс которого равен k-i+1 присваивается  элемент массива a, индекс которого равен k-i, по сути, это просто сдвих массива на один элемент} i: =i+1; //увеличение i на 1 f: =false; //f=ложь if i if c end; //ошибка, совсем упоротое сочетание условных операторов a[k-i+1]: =c; {элементу массива a, индекс которого равен k-i+1 присваивается c} k: =k+1; //k увеличивается на 1 {                   //комментарий как у меня for i: =1 to n do write(a[i]: 4); //снова вывод от 1 до n элементов массива writeln; //сноска строки } end; //выход из вложенного цикла //нет выхода из основного цикла //нет завершения программы //абсолютно нерабочий код //сожгите автора как ведьму