Составить программу вычисления стоимости восьми книг, если одна книга стоит 100 рублей, а каждая следующая дороже предыдущей на 7 рублей.(на языке паскаля)

a:=100;

i:=0;

while i<8 then

begin

s:=s+a;

a:=a+7;

inc(i);

end;