Originariamente inviato da king64
codice:
program password;
uses crt;
var parola:string[10];
var tentativo:integer;
var flag:boolean;
begin
flag:=FALSE;
tentativo:=0;
while (not(flag)) and (tentativo<4) do
begin
  writeln('Inserisci la password');
  readln(parola);
  if parola='prova' then
  begin
    writeln('Password corretta');
    flag:=TRUE
  end
  else
  begin
   writeln('Sbagliato');
   tentativo:=tentativo+1;
  end;
end;
if not (flag) then
  writeln('Input bloccato');
readln;
end.
Saluti
sei molto bravo... complimenti! Sai indicarmi qualche buona guida da seguire oppure degli ottimi consigli per imparare ad usare bene il pascal?