labb

Program Lab1;

Uses
    SysUtils;

Const
    MIN_AGE = 1;
    MAX_AGE = 120;
    NUM = 18;

Var
    Age: Integer;
    NumAge: Integer;
    IsCorrect: Boolean;
    IsCorrectRange: Boolean;

Begin
    Writeln('Данная программа проверяет, может ли пользователь голосовать.');
    Writeln('Диапазон для ввода возраста: ', MIN_AGE, '...', MAX_AGE);
    Age := 0;
    NumAge:=0;
    Repeat
        IsCorrect := True;
        Write('Введите ваш возраст: ');
        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('Ошибка ввода. Проверьте корректность ввода данных.');
            IsCorrect := False;
        End;
    Until IsCorrect;
    If (Age > NUM) Or (Age = NUM) Then
    Begin
        Writeln('Вы имеете право голосовать.');
    End
    Else
    Begin
        NumAge := NUM - Age;
        Writeln('Вы не имеете права голосовать. Вы сможете голосовать через ', NumAge);
    End;
    Readln(Age);

End.