❗ СОСТАВИТЬ ПРОГРАММУ В РaskalABC(for var)Ежедневно каждый болеющий гриппом человек может заразить 3 окружающих. Выведите на экран максимальное количество заболевших в течение 5 дней. Результат работы программы может выглядеть как : в 1 день количество заболевших составляет 1 чел.
в 2 день количество заболевших составляет 4 чел.
в 3 день количество заболевших составляет 16 чел.
...

begin

for var n: Integer := 1 to 5 do

writeln('в ', n, ' день количество заболевших составляет ', power(4,n-1), ' чел.')

end.

Посчитал тут на 15 дней:

в 1 день количество заболевших составляет 1 чел.

в 2 день количество заболевших составляет 4 чел.

в 3 день количество заболевших составляет 16 чел.

в 4 день количество заболевших составляет 64 чел.

в 5 день количество заболевших составляет 256 чел.

в 6 день количество заболевших составляет 1024 чел.

в 7 день количество заболевших составляет 4096 чел.

в 8 день количество заболевших составляет 16384 чел.

в 9 день количество заболевших составляет 65536 чел.

в 10 день количество заболевших составляет 262144 чел.

в 11 день количество заболевших составляет 1048576 чел.

в 12 день количество заболевших составляет 4194304 чел.

в 13 день количество заболевших составляет 16777216 чел.

в 14 день количество заболевших составляет 67108864 чел.

в 15 день количество заболевших составляет 268435456 чел.

Так что, на 15-ый день грипповать будет уже больше, чем у нас в стране населения. Как говорится, думайте сами, решайте сами...