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

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