Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / Program5

program prog05;
uses crt;
const parol='prog05';
var p,n: String;
    b: boolean;
begin
 clrscr;
 write('Введите пароль - ');
 readln(p);
 b:=p<>parol;
 if b
  then n:=' не';
   writeln('Пароль введен',n,' верно!');
   writeln('Вы',n,' допущены к работе.');
  readln;
end.