{* Задача 498 *}

Unit ZADACH498;
Interface
Implementation
Begin
 writeln('Сообщество роботов живет по следующим законам: - один раз в начале года они объединяются в группы по три или пять роботов; - за год группа из 3 роботов собирает 5 новых, а группа из 5 роботов собирает 9 новых; - роботы собираются так, чтобы собрать за год наибольшее количество; - каждый робот живет три года после сборки. Известно начальное количество роботов К и все они только что собраны. Сколько роботов будет через N лет?');
End.

Program zadach498;

Uses zadach498.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  i  : integer;
  k  : integer;
  n  : integer;
  s  : integer;
  s0 : integer;
  s1 : integer;
  s2 : integer;
  s3 : integer;
  x  : integer;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Write('Начальное количество роботов...');
  Readln(k);
  Write('Количество лет...');
  Readln(n);
  s0 := k; {количество роботов, которым 0 лет}
  s1 := 0; {количество роботов, которым 1 год}
  s2 := 0; {количество роботов, которым 2 года}
  s3 := 0; {количество роботов, которым 3 года}
  For i := 0 To n Do {процесс идет n лет}
  Begin
    s := s0 + s1 + s2 + s3; {сколько всего роботов}
    Case s Mod 5 Of {выделяем случаи}
      0 : x := (s Div 5) * 9;
    1:
    If s = 1 Then
      x := 0
    Else x := (((s - 5) Div 5) * 9) + 10;
      2:
    If s = 2 Then
      x := 0
    Else If s = 7 Then
      x := 10
    Else x := (((s - 10) Div 5) * 9) + 20;
      3 : x := ((s Div 5) * 9) + 5;
    4 :
    If s = 4 Then
      x := 5
    Else x := (((s - 5) Div 5) * 9) + 15;
  End;
  Case }
    s3 := s2; {роботы “постарели” на год}
  s2 := s1;
  s1 := s0;
  s0 := x; {построили за последний год}
End;
  Writeln('Через ', n, ' лет будет ', s, ' роботов');
  End..