var {секция описания переменных}Number,Num1,Num2,Sum: integer;begin{начало программы}write('Введите двухзначное число: ');//Вывод строки на экранread(Number); //переменная Number получает значение с клавиатурыNum1 := Number div 10; //В Num1 целая часть от деления Number на 10Num2 := Number mod 10; //В Num2 остаток от деления Number на 10Sum := Num1 + Num2; //находим сумму Num1 и Num2write('Сумма двух чисел — ',Sum);//вывод результата на экранend. {конец программы}