например: 18 — «восемнадцать учебных заданий», 23 — «двадцать три учебных задания», 31 — «тридцать одно учебное задание»
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.