program p29;
uses Crt;
var a1,a2,a3,q1,q2,pom:real;

begin
clrscr;
write('Zadej 1. cislo : ');readln(a1);
write('Zadej 2. cislo : ');readln(a2);
write('Zadej 3. cislo : ');readln(a3);
{ nejdrive seradime cisla podle velikosti }
if a1>a2 then begin pom:=a1; a1:=a2; a2:=pom; end;
if a2>a3 then begin pom:=a2; a2:=a3; a3:=pom; end;
if a1>a2 then begin pom:=a1; a1:=a2; a2:=pom; end;
q1:=a1/a2;
q2:=a2/a3;
if q1=q2 then
  begin
  writeln('Cisla tvori tyto geometricke posloupnosti :');
  writeln(a1:5:3,',',a2:5:3,',',a3:5:3,' ( q = ',q1:5:3,' )');
  if q1<>1 then
  writeln(a3:5:3,',',a2:5:3,',',a1:5:3,' ( q = ',(1/q1):5:3,' )');
  end
else
  writeln('Cisla netvori posloupnost');
repeat until keypressed;
end.