Lab1

Program Lab1;
Uses
    Sysutils;
Const
    MIN_AGE=1;
    MAX_AGE=120;
    NUM=18;
Var
    Age: Integer;
    IsCorrect: Boolean;
    IsCorrectRange: Boolean;
Begin
    Writeln ('Данная программа проверяет, может ли пользователь голосовать.');
    Writeln ('Диапазон для ввода возраста: ', MIN_AGE, '...', MAX_AGE);
    Write ('Введите ваш возраст: ');
    Age:=0;
    Repeat
        IsCorrect := True;
        Try
            Read(Age);
            Repeat
            If (Age<MIN_AGE) Or (Age>MAX_AGE) Then
            Begin
            Writeln ('Некорректный ввод данных.');
            Write('Введите возраст в диапазоне от ', MIN_AGE, ' до ', MAX_AGE, ': ');
            IsCorrectRange:= False;
            Read(Age);
            End
            Else
            Begin
            IsCorrectRange:=True;
            End;
            Until IsCorrectRange;
        Except
            Writeln('Ошибка ввода. Проверьте корректность ввода данных.');
            Write ('Введите ваш возраст: ');
            IsCorrect := False;
        End;
    Until IsCorrect;
    If (Age>NUM) Or (Age=NUM) Then
    Begin
        Writeln ('Вы имеете право голосовать.');
    End
    Else
    Begin
        Writeln ('Вы не имеете права голосовать. Вы сможете голосовать через ', NUM-Age);
    End;
    Readln(Age);
End.