begin

 var p, s: real;

 p := 2;

 s := 0;

 repeat

   p := p * 1.5;

   s := s + p

 until p > 5;

 Write(s)

end.

Будет выведено число 14.25