Вывести на экран программу арифметической прогрессии (паскаль) надо

Program qq;
var i, n, c:real;

begin
readln(i);
c:=i;
while n<>100 do 
begin 
n:=n+1; 
write(c, ' '); 
c:=c*i; 
end;
writeln();
end.