Дано целое число в диапазоне 10–40, определяющее количество учебных заданий по некоторой теме. Вывести строку-описание указанного количества заданий, обеспечив правильное согласование числа со словами «учебное задание» — Pascal(Паскаль)

Program Case17;

var
  N: integer;

begin
  repeat
    write('Введите число:');
    readln(N);
  until (N > 10) and (N < 40);
  case N of
    10:
      writeln('десять учебных задании ');
    11:
      writeln('одиннадцать учебных задании ');
    12:
      writeln('двенадцать учебных задании ');
    13:
      writeln('тринадцать учебных задании ');
    14:
      writeln('четырнадцать учебных задании ');
    15:
      writeln('пятнадцать учебных задании ');
    16:
      writeln('шестнадцать учебных задании ');
    17:
      writeln('семнадцать учебных задании ');
    18:
      writeln('восемнадцать учебных задании ');
    19:
      writeln('девятнадцать учебных задании ');
    20:
      writeln('двадцать учебных задании ');
    21:
      writeln('двадцать одно учебное задание ');
    22:
      writeln('двадцать два учебных задания');
    23:
      writeln('двадцать три учебных задания');
    24:
      writeln('двадцать четыре учебных задания');
    25:
      writeln('двадцать пять учебных задания ');
    26:
      writeln('двадцать шесть учебных задания ');
    27:
      writeln('двадцать семь учебных задания ');
    28:
      writeln('двадцать восемь учебных задания ');
    29:
      writeln('двадцать девять учебных задания ');
    30:
      writeln('тридцать учебных задании ');
    31:
      writeln('тридцать одно учебное задание ');
    32:
      writeln('тридцать два учебных задания ');
    33:
      writeln('тридцать три учебных задании');
    34:
      writeln('тридцать четыре учебных задания');
    35:
      writeln('тридцать пять учебных задании');
    36:
      writeln('тридцать шесть учебных задании ');
    37:
      writeln('тридцать семь учебных задании ');
    38:
      writeln('тридцать восемь учебных задании ');
    39:
      writeln('тридцать девять учебных задании ');
    40:
      writeln('сорок учебных задании ');
  end;

end.