Исправленная:
VAR P:integer;
begin
write(введите пароль);
read (P);
if p=1998 then write (Молодец) else write (Пароль не верен);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.