program Algorithm;
vap, s: real;
begip := 2s := 0;
repeap := p * 1.5s := s + puntil p > 5;
writeln('S = ', s:0:2)end.
program Algorithm;
va
p, s: real;
begi
p := 2
s := 0;
repea
p := p * 1.5
s := s + p
until p > 5;
writeln('S = ', s:0:2)
end.