Амёба каждый день делится на две части, профессор инвалидов каждую среду кол-во амёб уменьшает на одну треть, эксперимент происходит в течении года. сколько амёб всего стало? составить программу в pascalabc

Var s : real;
Begin
S:= (1*14-1/3)*52;
Write(s :5:6);
end.

Смешно, конечно, но выходит так. Просто выводишь определённую формулу, вот и все.