Дано целое число N больше 1, а также первый член а и разность D арифметической…

program xxx; var i, n: integer; a, d: real s: array[1… 20] of real; begin write ('введите N-'); readln (n); write ('введите а='); readln (a); write ('введите d='); readln (d); s[1]: =a; for i: =2 to n do s[i]: =a+d; write ('Арифметическая прогрессия: '); for i: =1 to n do write (s[i]); end.