Const
    n = 20;

Var
    x: array [1..n] of integer;
    y, k : integer; t: Boolean;

Begin
    Write('Enter k: ');
    Readln(k);

    Write('Enter array x: ');
    for y := 1 to k do
        Read(x[y]);

    Write('x = { ');
    for y := 1 to k do begin
        Write(x[y], ' ');
    end;
    Writeln('}');

    t := true;
    for y := 1 to k - 1 do begin
        if (x[y] >= x[y + 1]) then begin
            t := false;
            break;
        end;
    end;

    Writeln('t = ', t);
End.