program laba2_1;
//uses
//   System.SysUtils;
var
   N, i: Integer;
   X, Y: array of Integer;
   const MIN_SIZE = 3;
   const MAX_SIZE = 20;
   const MIN_VALUE = -501;
   const MAX_VALUE = 501;

function CheckInput(Min, Max: Integer): Integer;
var
   IsValid: Boolean;
   CurrentValue: Integer;
begin
   IsValid := False;
   repeat
   try
      Read(CurrentValue);
      IsValid := True;
   except
      Writeln('Введите целое число');
   end;
   if IsValid then
      if (CurrentValue < Min) or (CurrentValue > Max) then
      begin
         IsValid := False;
         Writeln('Введите число в заданном диапазоне');
      end;
until IsValid;
CheckInput := CurrentValue;
end;

procedure UserInputArray();
var i: Integer;
begin
   Writeln('Введите координаты вершин в диапазоне ', MIN_VALUE, '..', MAX_VALUE, ' через Enter');
   for i := 0 to N do
   begin
      Write('Введите координаты ', i + 1, '-й вершины: ');
      X[i] := CheckInput(MIN_VALUE, MAX_VALUE);
      Y[i] := CheckInput(MIN_VALUE, MAX_VALUE);
   end;
end;

procedure UserInput();
begin
   Writeln('Данная программа определяет, является ли данный многоугольник выпуклым');
   Write('Введите кол-во вершин в диапазоне ', MIN_SIZE, '..', MAX_SIZE, ': ');
   N := CheckInput(MIN_SIZE, MAX_SIZE);
   SetLength(X, N);
   SetLength(Y, N);
   Dec(N);
end;

function CheckPolygon(): Boolean;
var
   i, j, k, Ans: Integer;
begin
   for i := 0 to N do
   begin
      j := (i + 1) mod n;
      k := (i + 2) mod n;
      Ans := (X[j] - X[i]) * (Y[k] - Y[j]);
      Ans := Ans - (Y[j] - Y[i]) * (X[k] - X[j]);
      if Ans < 0 then
         CheckPolygon := True;
   end;
end;

procedure Print();
begin
   if CheckPolygon then
      Writeln('Введённый многоугольник не выпуклый')
   else
      Writeln('Введённый многоугольник выпуклый');
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end;

begin
   UserInput;
   UserInputArray;
   Print;
end.