1)Определить, является ли заданное целое число а двузначным числом.2)Найти значение выражения a3+b3bc.3)Определить есть ли среди цифр.задано трёхзначное число с одинаковыми числамна Паскале

begin
  var a:=ReadInteger('Введите число->');
  Println('Число',a, (a div 10>0) and (a div 10<10)?'двухзначное.':'не двухзначное.');
end.


Введите число-> 42
Число 42 двухзначное. 

begin
  var (a,b,c):=ReadInteger3('Введите a, b, c -> ');
  Println('a*3+b*3/bc=', (a*3+b*3)/(b*c));
end.


Введите a, b, c ->  1 2 3
a*3+b*3/bc= 1.5