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

Question

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

Answer 1

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.