var     a,b,c,d:integer;

begin
  writeln('1)Определить, является ли заданное целое число а двузначным числом.');
  write('Введите число '); readln(a);
  
  //модуль числа 
  a:=abs(a);
  if (a>9) and (a<100) then
    writeln(a, ' это 2-х значное число')
  else
    writeln(a, ' это не 2-х значное число');
    
  writeln();
  writeln('2)Найти значение выражения a3+b3\bc.');
  write('Введите a '); readln(a);
  write('Введите b '); readln(b);
  write('Введите c '); readln(c);
  
  writeln( (a*a*a+b*b*b)/b*c );
  writeln();

  writeln();
  writeln('3)Определить если заданого трёхзначного числа - число с одинаковыми цифрами.');
  write('Введите a '); readln(a);

  //сотни
  b:=a div 100;
  //десятки
  c:=(a div 10) mod 10;
  //единицы
  d:=a mod 10;

  if (b=c) and (c=d) then
    writeln('В числе ', a, ' все три цифры одинаковы')
  else
    writeln('В числе ', a, ' цифры отличаются');
end.