Какому или каким из перечисленных ниже слов соответствует код x0: $=+0=? слова: орнамент, доминион, рифление, строение, смекалка

доминион  соответствует  код  x0: $=+0

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var age: =readinteger('введите возраст: ');   var gender: =readinteger('введите пол (1-м, 2-ж): ');   if gender=1 then       case age of       0..13: writeln('мальчик');       14..20: writeln('юноша');       21..70: writeln('мужчина');       else writeln('старец')       end   else       case age of       0..13: writeln('девочка');       14..20: writeln('девушка');       21..70: writeln('женщина');       else writeln('старушка')       end end.

Uses crt; var a,b,c,mn,mx,sr,p,s: real; begin clrscr; writeln('введите 3 числа: '); readln(a,b,c); if(a< =abs(b-c))or(a> =b+c)then write('это не треугольник! ') else   begin       mn: =a;     if b< mn then mn: =b;     if c< mn then mn: =c;   mx: =a;     if b> mx then mx: =b;     if c> mx then mx: =c;   sr: =a+b+c-mn-mx;     if(a=b)and(b=c) then writeln('это равносторонний треугольник')     else if((a=b)and(b< > c))or((a=c)and(b< > c))or((b=c)and(a< > b))then     writeln('это равнобедренный треугольник')     else writeln('это разноcторонний треугольник');   p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));     writeln('его площадь=',s: 0: 2);     write('стороны в порядке убывания: ',mx: 0: 2,' ',sr: 0: 2,' ',mn: 0: 2);   end; readln end.