VAR
 a,q,an,Sn:Real;
 n:Integer;

Procedure Progres(a1,q1:real; n1:integer; var an1:real; var Sn1:real);
var i:integer; qn1:real;
begin
 if n1<=0 then an1:=0 else
  begin
   an1:=a1;
   for i:=1 to n1-1 do an1:=an1*q1;
  end;
 If q1=1 then Sn1:=a1*n1 else
  begin
   qn1:=1;
   for i:=1 to n1 do qn1:=qn1*q1;
   Sn1:=a1*(qn1-1)/(q1-1);
  end;
end;

BEGIN
 Write('a= ');
 Readln(a);
 Repeat
  Write('q= ');
  Readln(q);
  If q<=0 then Writeln('Error: q must be >0!');
 Until q>0;
 Write('n= ');
 Readln(n);
 Progres(a,q,n,an,Sn);
 If an=0 then writeln('Error: n<0 or n=0') else
  begin
   Write('Progression is ');
   If Abs(an)>Abs(a) then writeln('increasing') else
   If Abs(an)<Abs(a) then writeln('decreasing') else
   writeln('singular');
   Write('an= ',an:0:3,'     Sn= ',Sn:0:3);
  end;
 Readln
 END.