первая задача:На множестве чисел от 1 до 100 определить количество десятков во введенном пользователем числе. Например: ввели 43, ответ "4 десятка", для 89 - "8 десятков". Использовать case.
Вторая задача: Пользователь вводит двузначное число. Увеличивать его на 1 до тех пор, пока значения разрядов не совпадут. Вывести результат. Например: ввели 27, результат - 33. (repeat)

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!№1begin  var n:=ReadInteger;  var d:=n div 10;  case d of  0,5..10:Writeln(d,' десятков');  1:Writeln('1 десяток');  2..4:Writeln(d,' десятка');  else Writeln('Недопустимое число')  end;end.Пример424 десятка№2begin  var n:=ReadInteger;  if n mod 10 <> n div 10 then  repeat    n+=1  until n mod 10 = n div 10;  Writeln('Получено число ',n)end.Пример37Получено число 44