Ciąg geometryczny, suma:

program haha;
var
suma:integer;
ile:integer;
ilejuz:integer;
x:integer;
begin
writeln('podaj ile liczb');
readln(ile);
suma:=0;
x:=1;
ilejuz:=0;

while (suma<1000) and (ilejuz<ile) do
begin
suma:=suma+x;
x:=suma*2;
writeln('teraz jest ',suma);
ilejuz:=ilejuz+1;

end;
writeln('wykonal ',ilejuz,' razy');
readln();

end.