Составить алгоритм и программу: вывести на экран числа по формуле а: = 4а+1 (диапазон чисел от 1 до 50);

Program chisla; uses crt; var a,b : integer; begin for a: =1 to 50 do begin b: =4*a+1; writeln(b); end; end.

Комментарии удалишь, попросил же с объяснением. var mass: array[1..100] of integer;         g,s,i,sum: integer; begin sum: =0; i: =0; // задаем начальное значение счетчику randomize; //рандомизация writeln('введите количество чисел в массиве (до 100)'); readln(g); // водим количество чисел for s: =1 to g do // от нуля, до кол-ва чисел в массиве begin i: =i+1; mass[i]: =random(51); //51 потому что всегда -1 еще if (mass[i] mod 2) = 0 then sum: =sum+mass[i]; //проверяем на четность и плюсуем, если четное. writeln(mass[i]); end; writeln('чисел в массививе - '+g);                         //выводим значенияwriteln('сумма четных элементов = '+sum); end.

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! const   n=34; begin   // 1   var r: =arrrandom(n,-8,8); r.println;   // 2   var b: =r.slice(trunc(0.75*n)-1,3);   writeln('ср.гармоническое= ',b.count/b.aggregate(0.0,(x,y)-> x+1.0/y));   // 3   var m: =r.batch(n div 3).toarray[1].where(x-> x.iseven).minby(x-> abs(x));   writeln('минимальный по модулю= ',m);   // 4   var r2: =r.select((x,i)-> (x,(n div 2).toarray;   var r21: =r2[0].where(x-> x[0]< 0).orderby(x-> sqr(x[0]));   var ind: =r21+r2[1].where(x-> x[0]< 0).orderby(x-> sqr(;   var ind1: =ind.unziptuple;   var aval: =ind1[0].toarray;   var aind: =ind1[1].sorted.toarray;   for var i: =0 to aval.count-1 do r[aind[i]]: =aval[i];   r.println end. пример 8 -3 2 -2 6 6 7 6 -7 -5 -4 6 2 2 1 1 -6 1 -1 -5 8 4 1 7 1 1 2 -8 -8 1 -7 1 8 -6 ср.гармоническое= 7.07368421052631 минимальный по модулю= 2 8 -2 2 -3 6 6 7 6 -4 -5 -6 6 2 2 1 1 -7 1 -1 -5 8 4 1 7 1 1 2 -6 -7 1 -8 1 8 -8