Pascal abc пишет, что в 5 строке неожиданный символ. ! var p: integer; begin write('введите пароль'); read (p); if p=1998 then write (’молодец’) else write (’пароль не верен’); end.

Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.