************* 1 ***************

var
n, s: integer;

begin
  Write('Введите трехзначное число: ');
  Readln(n);
  s := (n div 100) + ((n mod 100) div 10) + (n mod 10);
  if (s in [10..99]) then Writeln('Сумма цифр двухзначная (', s, ')')
  else Writeln('Сумма цифр не двухзначная (', s, ')')
end.

Тестовое решение:

Введите трехзначное число: 269
Сумма цифр двухзначная (17)

Введите трехзначное число: 125
Сумма цифр не двухзначная (8)

************** 2 ****************

var
  n, d1, d3: integer;

begin
  Write('Введите трехзначное число: ');
  Readln(n);
  d1 := (n div 100);
  d3 := (n mod 10);
  if d1 > d3 then Writeln('Первая цифра больше третьей')
  else if d1 = d3 then Writeln('Первая цифра равна третьей')
  else Writeln('Первая цифра меньше третьей')
end.

Тестовое решение:

Введите трехзначное число: 739
Первая цифра меньше третьей