1. Актуальная: Экологическая обстановка в мире с каждым днём ухудшается.
2. Неактуальная: Чтобы добыть огонь, нужно стукать камушек о камушек.
3. Достоверная: Силы, с которыми тела действуют друг на друга, равны по модулю и противоположны по направлению (информация из учебника).
4. Недостоверная: Люська из пятого подъезда ведёт разгульный образ жизни (слова соседки-сплетницы).
5. Объективная: Часы показывают 17 часов 50 минут.
6. Необъективная: Сейчас вечер.
7. Полная: Красный свет - стой, жёлтый - приготовься, зелёный - иди.
8. Неполная: Красный свет - стой, зелёный - иди (для трёхцветного светофора)
9. Полезная: Не сутулься, а то рано состаришься!
10. Бесполезная: В соседней деревне нет ни одного Олега.
11. Понятная: Два плюс два равно четыре.
12. Непонятная: жык лопр дыв мыг
program AandB;
var
A, B, N, i: Integer;
begin
Write ('Введите A и B (A < B)');
ReadLn (A, B);
WriteLn;
N := 0;
if A < B then begin
for i := B - 1 downto A + 1 do begin
Write (i, ' ');
Inc (N);
end;
WriteLn;
WriteLn ('N = ', N);
end else
WriteLn ('Условие не выполнено.');
ReadLn;
end.