Question

Паскаль, 9 класс. Пожалуйста, помогите :с

Answer 1

Var A,S,N:real;
Begin
N:=1;
S:=5;
A:=5;
While S<13 do
   Begin
   A:=A*0.95;
   S:=S+A;
   N:=N+1;
   End;
WriteLn(N);
End.