var 
    parole: string;
    n: byte;

begin
  n := 1;
  
  while n < 6 do 
  begin
    write('parole = ');
    readln(parole);
    if parole = '111' then
    begin
      for i := 1 to 2000 do
        write('Молодец');
      break;
    end;
    n+=1;
  end;
end.