1) Дано трехзначное число. Определить, является ли сумма его цифр двузначным числом. 2) Дано трехзначное число. Определить какая из его цифр больше. Первая или последняя. Помогите пожалуйста,срочно надо

************* 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 Первая цифра меньше третьей