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

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