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

program qq;var i, n, c:real;beginreadln(i);c:=i;while n<>100 do begin  n:=n+1;  write(c, ' ');  c:=c*i; end;writeln();end.