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

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