Вирусы размножаются в геометрической прогрессии, ее знаменатель q=3; первый член = 3. Составить программу вычисления членов прогрессии, дающих в сумме 1092 — Pascal(Паскаль)

uses crt;
var
  sum,q,i:integer;
  begin
  clrscr;
  q:=3;
   i:=1092; 
   sum:=3;
writeln ('Слагаемое ',q);
  readkey;
repeat
 q:=q*3;                    
sum:=sum+q;
  writeln('Слагаемое ',q);
readkey;
until(i=sum);
write('Конец операции');
readkey;
end.