ПОМОГИТЕ ПОЖАЛУЙСТА  написать программу проверки правильности вводимого пароля 1) с использованием if ; 2) с использованием while ; 3) с использованием repeat ...until ПОЖАЛУЙСТА , УМОЛЯЮ ВАС ПОМОГИТЕ

А-правильный набор цифр, b-набор цифр, подлежащих проверке.Если Паскаль: writeln ("введите пароль"); readln;(b) if a=b writeln ("пароль правильный") else writeln ("пароль неправильный"); end

Program Ksushaa1999PasswordRepeat;uses crt;var   vvod,ok:string;const  pass='Ghrj@&$45%$!#hftHUgruG';begin  writeln('*** Alphaeus is thinking... ***');  writeln('***          OK             ***');  writeln();repeat    writeln('Введите пароль ');    readln (vvod);  until vvod=pass;writeln('Принято');end.Program Ksushaa1999PasswordWhile;uses crt;var   vvod,ok:string;const  pass='Ghrj@&$45%$!#hftHUgruG';begin  writeln('*** Alphaeus is thinking... ***');  writeln('***          OK             ***');  writeln();  while vvod<>pass do    begin      writeln('Введите пароль ');      readln (vvod);    end;  writeln('Принято');end.Program PKsushaa1999PasswordIf;uses crt;var   vvod,ok:string;const  pass='Ghrj@&$45%$!#hftHUgruG';label  metka;begin  writeln('*** Alphaeus is thinking... ***');  writeln('***          OK             ***');  writeln();metka:  writeln('Введите пароль ');  readln (vvod);  if vvod<>pass then goto metka;  writeln('Принято');end.