Ввести 100 членов арифметической прогрессии( каждое число прибавляется на 3)

var A, i, k, max: integer;begini := 3;max := 100;for k := 1 to max do beginA := A + i;write( A, ' ');end;end.