В арифметической прогрессии известны а1, а2. Вывести на экран N членов этой прогрессии и их сумму

var a1,a2,n,d,i:integer;beginreadln(a1,a2,n);d:=a2-a1;write(a1,' ',a2,' ');for i:=2 to n-1 do write(a1+i*d,' ');writeln;writeln((2*a1+d*(n-1))/2*n:5:0);end.Пример:1 2 51 2 3 4 515