Написать программу на pascalABC.NET. Цикл с параметром (FOR) Для арифметической прогрессии 4, 9, 14, 19... найти первые п членов этой прогрессии.

[сфинкс]

Программа на языке высочайшего уровня qbasic qb64
применяет нейросеть n и квантовые вычисления q
и пишет что нужно в столбик и сама вводит n в цикле

q = 5 ' regress.bas
For n = 1 To 10
    p = 4
    For j = 2 To n
        p = p + q
    Next
    Print n; p
Next

Пояснения к программе пишу дольше чем саму программу
и значит отвечавшие тоже могли Помочь за 5 минут каждый

Результат:

1 4
2 9
3 14
4 19
5 24
6 29
7 34
8 39
9 44
10 49

Соответствует "Цикл с параметром (FOR) Для арифметической прогрессии 4, 9, 14, 19..."

Однако на другие языки переделываем сами

[macomics]

var i: LongInt;
begin for i := 0 to n - 1 do Write(4 + 5 * i, ' '); WriteLn; end.

[newerow1989]

const n = 10;
      a = 4;
      d = 5;
var i, s, ai: integer;
begin
   s:=0;
   ai:=a-d;
   for i:=1 to n do
   begin
      Inc(ai, d);
      Inc(s, ai);
      Writeln(i, ' - ', ai);
   end;
   Writeln;
   Writeln('s = ', s);
   Readln;
end.

[digitalis]

сфинкс не упускает случая прорекламировать свой любимый qb64, который тут нужен, как зайцу ледоруб. qb64 - наше всё.