Оодна бактерия делится на две в течение одной минуты в начале присутствовала одна бактерия сколько их будет в течение 15 минут? — Pascal(Паскаль)

program zada4a_5;
uses crt;
 
var
m:integer;
 
begin
writeln ('одна бактерия делится на две в течение одной минуты');
writeln ('в начале присутствовала одна бактерия');
writeln ('сколько их будет в течение 15 минут?');
readln (m);
if m=30
then
writeln ('правильно')
else writeln ('неверно');
readkey;
 
end.