Поделитесь своими знаниями, ответьте на вопрос:
1. из полностью наполненной цистерны, ёмкостью s литров, начинает выливаться вода. в каждую секунду из бочки выливается 6% находящейся в бочке воды. сколько литров воды останется в бочке через 20 секунд.
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.