Lambda13 Pascal
var
a:string;
begin
writeln('Введите пароль');
readln(a);
writeln('Ваш пароль: ' a);
end.