Составьте программу, которая определяет, через сколько лет сумма s, положенная в банк под процент p с годовой капитализацией, увеличится в 5 раз.

Var year: Integer; s, s1, p: Real;
Begin
  write('Сумма: '); readln(s);
  write('Процент: '); readln(p);
  s1 := s;  year := 0;
  while s * 5 > s1 do
  begin
    s1 := s1 + s1 * p / 100;
    year := year + 1;
  end;
  write(year);
End.

1. Актуальная: Экологическая обстановка в мире с каждым днём ухудшается.

2. Неактуальная: Чтобы добыть огонь, нужно стукать камушек о камушек.

3. Достоверная: Силы, с которыми тела действуют друг на друга, равны по модулю и противоположны по направлению (информация из учебника).

4. Недостоверная: Люська из пятого подъезда ведёт разгульный образ жизни (слова соседки-сплетницы).

5. Объективная: Часы показывают 17 часов 50 минут.

6. Необъективная: Сейчас вечер.

7. Полная: Красный свет - стой, жёлтый - приготовься, зелёный - иди.

8. Неполная: Красный свет - стой, зелёный - иди (для трёхцветного светофора)

9. Полезная: Не сутулься, а то рано состаришься!

10. Бесполезная: В соседней деревне нет ни одного Олега.

11. Понятная: Два плюс два равно четыре.

12. Непонятная: жык лопр дыв мыг

Возьмем сегодняшнее время и посл. новости
1. Путина выдвинули на нобелевскую премию мира
2. США грозят напасть на Сирию
3. В Сирии исп. хим оружие
4. Сирийские власти исп. хим.оружие
5. Россия Сирию от вмешательства США
6. Россия унизила США тем, что помешала нанести удар по Сирии
7.В Сирии исп хим оружие, кто это был не известно, США собирались предпринять удар по Сирии, но остановились после пред. России
8. Удар по Сирии не состоится
9. Страны пришли к договоренности
10. Елизавета 1 не была замужем
11. США обижены на Россию ( я так, утрирую)
12. допустим я все это написал бы в двоичном коде, это было бы не понятно