Напишите маленькую программу угадывания пароля не более чем из 3-х попыток. ПОЛОВИНА ГОТОВА

var b,c : string;begina:=0;Readln(b);while a<3 dobeginReadln(c);If c=b then beginWriteln('доступ резрешен');endelse begina:=a+1;; end;end;Writeln('вы не угадали');end.]

А на питоне можно?