Пример 1.  Защити программу паролем.

       Пример программы, в которой считывается с клавиатуры символьный пароль Ch, если ввели N, то переменной Parol присваивается значение true, считывается  числовой код X и проверяется равен ли он числу 100, если нет, то вывод сообщение об ошибке и прерывание программы Halt.

Program password;

uses crt;

var

  ch:char;  x:integer; 

  parol:boolean;

Begin

clrscr; 

Write('Введите пароль:');Readln(ch);

if ch='N' then parol:=true else parol:=false;

if parol=true then

begin

     Write('Введите код:');Readln(x);

      if x=100 then Write('Пароль и код правильные')

                  else

                  begin

                       Writeln(‘SOS');  readkey; Halt;

                  end;

end;

readkey

end.