Каждая бактерия делится на две в течение одной минуты. В начальный момент времени имеется одна бактерия. Составьте программу, которая рассчитывает количество бактерий на заданное пользователем с клавиатуры целое значение момента времени 15 минут. Мне через Паскаль нужно и еще что бы через операторы white и do.Срочно нужно спасибо заранее.

Var a,b,c:integer;
Begin
a:=1;
b:=0;
write(Введите кол-во минут: ); readln(c);
while (bc) do begin a:=a*2; b:=b+1; end;
writeln(a);
end.