создание консольного приложения в турбо делфи

[naBel]

помоги доделать маленькое задание связаное с оператором FOR
Дано натуральное n, действительное a. Составить программу, вычисляющую a(a+1)…(a+n-1).
вот так я сделал скажите что не правильно:

var a,n,t,i,s:integer;

begin
   writeln('BBedute a,n');
   readln(a,n);
   s:=1;
   for i:=1 to n do begin
   s:=(n-1);
   t:=a*(a+s);
   end;
   write(t);
   readln;
end.

[DiemonStar]

действительное a

это говорит о том, что для данной переменной более подходит тип real

s:=1;
for i:=1 to n do begin
s:=(n-1);
t:=a*(a+s);
end;

смотрим данный блок:
1. значение s постоянно, т.к. n тоже неизменно
2. значение t тоже неизменно, поскольку его множители не изменяются.
либо что-то у вас здесь не так работает, либо цикл явно лишний.

промолчу ещё про то, что присваивание s = 1 в контексте данного кода абсолютно бессмысленно.