Program igra;var a,b,c:integer;beginwriteln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько тебе лет?')else writeln('Подтянись 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько стоит твой компьютер?')else writeln('Пробеги вокруг техникума 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Какой человек самый неприятный для тебя?')else writeln('Не садись целый час');end.
-Произведения науки, литературы и искусства(программы для различных устройств, литературные произведения, письма, дневники, личные заметки)
-Изобретения, полезные модели, промышленные образцы(изобретение, полезная модель)
-Средства индивидуализации( фирменные наименования, товарный знак)
Объяснение: