program MaxMinSum;

var
num, maxDigit, minDigit, sum: integer;

begin
write('Введите трехзначное число: ');
readln(num);

if (num < 100) or (num > 999) then
begin
writeln('Ошибка! Введите трехзначное число.');
Exit;
end;

maxDigit := num mod 10;
minDigit := num mod 10;

while num > 0 do
begin
if num mod 10 > maxDigit then
maxDigit := num mod 10;
if num mod 10 < minDigit then
minDigit := num mod 10;

end;

sum := maxDigit + minDigit;

writeln('Сумма наибольшей и наименьшей цифры в числе: ', sum);
end.