1)Найти, является ли данное целое число а двузначным числом.2)Найти значение

что есть ли посреди цифр? :)))

3 пункт малопонятен. В следущий раз постарайся написать условие задачки стопроцентно без ошибок :)

//Листинг программки и снимок экрана ее работы в прибавлениях

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

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

Пример:
Введите число-gt; 42
Число 42 двухзначное. 

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

Пример:
Введите a, b, c -gt;  1 2 3
a*3+b*3/bc= 1.5