codice:
program password;
uses crt;
var parola:string[10];
begin
writeln('Inserisci la password');
readln(parola);
if parola='prova' then 
  writeln('Password corretta')
else
   writeln('Sbagliato');
end.
Saluti