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

Program z;
var
    n,x1,x2:integer;
begin
    writeln('vv n');
    readln(n);
    x1:=n div 10;
    x2:=n mod 10;
    if x1=1 then begin
        if x2=0 then write('des9tb ');
        if x2=1 then write('odinnadcatb ');
        if x2=2 then write('dvenadcatb ');
        if x2=3 then write('trinadcatb ');
        if x2=4 then write('4etblpnadcatb ');
        if x2=5 then write('II9THAdcatb ');
        if x2=6 then write('IIIeCTHAdcatb ');
        if x2=7 then write('cemHadcatb ');
        if x2=8 then write('BoceMHadcatb ');
        if x2=9 then write('DeB9THadcatb ');
        end
    else
        begin
           if x1=2 then write('DBAdcatb ');
           if x1=3 then write('tpudcatb ');
           if x1=4 then write('copok ');
           if x2=1 then write('odHo ');
           if x2=2 then write('DBA ');
           if x2=3 then write('TPU ');
           if x2=4 then write('4eTblPe ');
           if x2=5 then write('II9tb ');
           if x2=6 then write('IIIECTb ');
           if x2=7 then write('CeMb ');
           if x2=8 then write('BoceMb ');
           if x2=9 then write('DeB9Tb ');
        end;
        if (x2=1)and(x1<>1)then write('y4ebnoe zadanie')
        else
        if (x2=2)or(x2=3)or(x2=4)and(x2<>1)then write('y4ebHblx zadani9')
        else
        if (x2=0)or(x2=5)or(x2=6)or(x2=7)or(x2=8)or(x2=9)or(x1=1) then write('y4ebHblx zadanii');
    readln;
end.