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.