Составьте программу в pascal abc которая определяет является ли число 10 двузначным.

program z1; var a: integer; begin read(a); if (a> 9) and (a< 100) then writeln(a, '-двузначное число')else writeln(a, '-не является двузначным числом'); end.

program dafnochka; uses crt; type   typed=set  of 0..10; var  dr,d1,d2,d3: typed;   c: integer; begin  d1: =[2,4,6,8];   d2: =[0,1,2,3,5];   d3: =[1,3,5,7,9]; {вывод множеств}  writeln('множество d1: ');   for c: =0 to 10 do      if c in d1 then          write (' ',c,' ');   writeln();   writeln();           writeln('множество d2: ');   for c: =0 to 10 do      if c in d2 then          write (' ',c,' ');   writeln();   writeln();       writeln('множество d3: ');   for c: =0 to 10 do      if c in d3 then          write (' ',c,' ');   writeln();       writeln();   {примеры}   dr: =d1+d2;         writeln('пример 1 - объединение множеств d1 u d2');   for c: =0 to 10 do      if c in dr then          write (' ',c,' ');   writeln();       dr: =d2-d3;     writeln();       writeln('пример 2 - разность множеств d2\d3');   for c: =0 to 10 do      if c in dr then          write (' ',c,' ');   writeln();       dr: =d2*d3;       writeln();         writeln('пример 3 - пересечение множеств d2 п d3');   for c: =0 to 10 do      if c in dr then          write (' ',c,' ');   writeln();     end.