Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
При составлении таблиц истинности количество строк зависит от количества логических переменных, а количество столбцов - от количества логических операций в выражении.
Для трех логических переменных делаем таблицу из 8 строк:
1.отличаются от полной и не полной версии.
2.интернет магазин,брокерство,ставки,продажа вещей,продажа недвижимости,продажа земельных участков
Природная:болото,вулкан,степь
Техническая:Самолет
Смешанная:библиотека,оркестр
Думаю,что так