Дана арифметическая прогрессия из n членов.число элементов n,1-й элемент а1 и разность d с клавитуры.вывести все члены прогрессии на экран и вычислить сумму элементов прогрессии,значение которых меньше пяти.решить тремя я буду .

Var

a: array [1..255] of integer;

i, n, d, a1: integer;

begin

writeln('n, d, a1');

read(n, d, a1);

a[1]:=a1;

for i:=2 to n do a[i]:=a[i-1]+d;

a1:=0;

for i:= 1 to n do if a[i]<5 then a1:=a1+a[i];

writeln('summa:', a1);

for i:=1 to n do write(a[i], ' ')

end.