Сгенерировать случайное число и определить принадлежность точки заданной области.

const n = 2;
      m = 9;
var k: integer;
    x, y: real;
begin
  randomize;
  k := 2 + random(8);
  write('Случился ');
  if k = 2
    then writeln('февраль')
    else if k = 4
      then writeln('апрель')
      else if k = 5
        then writeln('май')
        else if k = 6
          then writeln('июнь')
          else if k = 7
            then writeln('июль')
            else if k = 8
              then writeln('август')
              else if k = 9
                then writeln('сентябрь')
                else begin
                  writeln('март');
                  writeln('Введите координаты:');
                  write('x = ');
                  readln(x);
                  write('y = ');
                  readln(y);
                  if (y >= 0) and ((x >= 0) and (x / 8 + y / 5 <= 1) or (x < 0) and (x * x + y * y <= 5 * 5))
                    then writeln('Точка принадлежит области')
                    else writeln('Точка не принадлежит области')
                end;
  readln
end.

const n = 2;
      m = 9;
      mon: array[2..9] of string[8] = ('февраль', 'март', 'апрель', 'май',
                                       'июнь', 'июль', 'август', 'сентябрь');
var k: integer;
    x, y: real;
begin
  randomize;
  k := 2 + random(8);
  writeln('Случился ', mon[k]);
  if k = 3
    then begin
      writeln('Введите координаты:');
      write('x = ');
      readln(x);
      write('y = ');
      readln(y);
      if (y >= 0) and ((x >= 0) and (x / 8 + y / 5 <= 1) or (x < 0) and (x * x + y * y <= 5 * 5))
        then writeln('Точка принадлежит области')
        else writeln('Точка не принадлежит области')
    end;
  readln
end.

const n = 2;
      m = 9;
var k: integer;
    x, y: real;
begin
  randomize;
  k := 2 + random(8);
  write('Случился ');
  case k of
    2: writeln('февраль');
    3: begin
         writeln('март');
         writeln('Введите координаты:');
         write('x = ');
         readln(x);
         write('y = ');
         readln(y);
         if (y >= 0) and ((x >= 0) and (x / 8 + y / 5 <= 1) or (x < 0) and (x * x + y * y <= 5 * 5))
           then writeln('Точка принадлежит области')
           else writeln('Точка не принадлежит области')
       end;
    4: writeln('апрель');
    5: writeln('май');
    6: writeln('июнь');
    7: writeln('июль');
    8: writeln('август');
    else writeln('сентябрь')
  end;
  readln
end.