1. из полностью наполненной цистерны, ёмкостью s литров, начинает выливаться вода. в каждую секунду из бочки выливается 6% находящейся в бочке воды. сколько литров воды останется в бочке через 20 секунд.

Код Pascal:

Var
   S:real;
   i:byte;
Begin
Write('S = ');ReadLn(S);
For i:= 1 to 20 do
    S:=S*0.94;
WriteLn(S:0:3)
End.

(0.94)^20 * S