Скачиваний:
20
Добавлен:
06.02.2016
Размер:
377 б
Скачать
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.
Соседние файлы в папке 2 лаб. Структурные операторы