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

Var a1,a2,n,d,i:integer;
begin
readln(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 5
1 2 3 4 5
15