>> 8 .
3.5
(-) repeat.
:
repeat <1; 2; ...; > until <>
<1>; <2>; ... , ;
<> ; , .
. 2.4.3 ( 17) .
program n_15; var i: integer; : real; begin writeln ( '); i: =1; x: =10; repeat i: =i + 1; x:=x+0.1*x; until x>=25; writeln (' c ', i, '- 25 ') end.