Lab_1.2

Program Lab_1_2;

{$APPTYPE CONSOLE}

{$R *.res}

Uses
    System.SysUtils;

Const
    MAX_VALUE = 15;
    MIN_VALUE = 2;

Var
    N, I, StrokaUmn: Integer;
    IsCorrect: Boolean;

Begin
    StrokaUmn:=0;
    Writeln('Данная программа составляет таблицу умножения для заданного натурального числа в диапозоне от 2 до 15');
    Repeat
        Write('Введите число: ');
        IsCorrect:= true;
        Try
            Readln(N);
        Except
            Writeln('Проверьте верность введённых данных!');
            IsCorrect:= false
        End;
        If ((IsCorrect) And ((N < MIN_VALUE) Or (N > MAX_VALUE))) Then
        Begin
            Writeln('Введено число неверного диапозона!');
            IsCorrect:= false;
        End;
    Until(IsCorrect);
    For I := 1 To N Do
        Begin
            StrokaUmn:=I*N;
            Writeln(I,'*',N,'=',StrokaUmn);
        End;
    Readln
End.