{* Задача 130 *}

Unit ZADACH130;
Interface
Implementation
Begin
 writeln('Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия меняется на зелёную, затем через 1 такт времени делится на красную и зелёную.Сколько будет всех бактерий через k тактов времени? ');
End.

Program zadach130;

Uses zadach130.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i  : longint;
  k  : longint;
  n  : longint;
  z  : longint;
  nz : longint;
  nk : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('кол-во бактерий:');
  readln(n);
  write('кол-во тактов времени:');
  readln(k);
  z := 0;
  For i := 1 To k Do {* Цикл для i => [1 .. k] *}
  Begin
    nz := 0;
    nk := 0;
    nz := nz + z;
    nk := nk + z;
    nz := nz + n;
    n := nk;
    z := nz;
  End;
  n := z + n;
  writeln('otvet=', n);
  readln; {* Ждем подтверждения пользователя *}
End.