program stparol;
var
name:string[30];
parol:string[6];
begin
write('Пароль (6 символов)?');
readln(parol);
if parol='секрет' then begin
write('Ваша фамилия? ');
readln(name);
writeln(name,', Вам доступ разрешен.');
end
else begin
writeln('Неверный пароль! Доступ запрещен!');
end;
end.