begin writeln′Enteratwo−digitnumber:′'Enter a two-digit number: '′Enteratwo−digitnumber:′; readlnnumnumnum;
if (num < 10) or (num > 99) then writeln′Pleaseenteratwo−digitnumber.′'Please enter a two-digit number.'′Pleaseenteratwo−digitnumber.′
else begin tens := num div 10; ones := num mod 10; sum := tens + ones;
writeln′Thesumofthedigitsin′,num,′is′,sum'The sum of the digits in ', num, ' is ', sum′Thesumofthedigitsin′,num,′is′,sum;
program SumDigits;
var
num, tens, ones, sum: Integer;
begin
writeln′Enteratwo−digitnumber:′'Enter a two-digit number: '′Enteratwo−digitnumber:′;
readlnnumnumnum;
if (num < 10) or (num > 99) then
writeln′Thesumofthedigitsin′,num,′is′,sum'The sum of the digits in ', num, ' is ', sum′Thesumofthedigitsin′,num,′is′,sum;writeln′Pleaseenteratwo−digitnumber.′'Please enter a two-digit number.'′Pleaseenteratwo−digitnumber.′ else
begin
tens := num div 10;
ones := num mod 10;
sum := tens + ones;
end;
end.