Пароль называется криптостойким, если выполнены 4 критерия:
Пароль содержит строчные латинские буквы
Пароль содержит заглавные латинские буквы
Пароль содержит цифры
Длина пароля не менее 8 символов
Требуется по данному паролю определить, сколько критериев криптостойкости выполнено.
Формат ввода: Вводится одна строка, состоящая только из латинских букв и цифр. Количество символов в строке не превышает 100.
Формат вывода: Выведите количество критериев криптостойкости, которым удовлетворяет пароль.
(это надо в паскале)

Предыдущий
вопрос Следующий
вопрос

program PasswordStrength;

var
password: string;
lowercase, uppercase, digits, length: boolean;
i, count: integer;

begin
count := 0;
lowercase := False;
uppercase := False;
digits := False;
length := False;

readln(password);

for i := 1 to length(password) do
begin
if (password[i] >= 'a') and (password[i] <= 'z') then
lowercase := True
else if (password[i] >= 'A') and (password[i] <= 'Z') then
uppercase := True
else if (password[i] >= '0') and (password[i] <= '9') then
digits := True;
end;

if length(password) >= 8 then
length := True;

if lowercase then
count := count + 1;
if uppercase then
count := count + 1;
if digits then
count := count + 1;
if length then
count := count + 1;

writeln(count);
end.