Паскаль. Составьте программу вычисления суммы 150 первых членов арифметической прогрессии, если a1 = –200; d = 0,2.( с помощью repeat)

program prg;const n = 150; a1 = -200; d = 0.2;var c : integer; an : double;begin c := 1; repeat an := a1 + (c-1) * d; write(an:5:2, ', '); inc(c); until c=n; writeln;end.