Напишите программу, которая вычисляет сумму цифор только трехзначных чисел

Можно заменить в условии эти 4 оператора на:b:=a div 100;c:=a div 10 - (a div 100) * 10;d:=a - (a div 10)*10;writeln(b+c+d);на вот этот:writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10;writeln(b+c+d))

*writeln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10; И тогда можно вырезать из var: b,c,d

Получится:var a:integer;beginwriteln('Введите число:');readln(a);if (a div 1000=0) and (a div 100>0) then beginwriteln(a div 100+a div 10 - (a div 100) * 10+a - (a div 10)*10); endelse writeln('Вы ввели не трехзначное число.');end.

var a,b,c,d:integer;beginwriteln('Введите число:');readln(a);if (a div 1000=0) and (a div 100>0)  then beginb:=a div 100;c:=a div 10 - (a div 100) * 10;d:=a - (a div 10)*10;writeln(b+c+d);endelse writeln('Вы ввели не трехзначное число.');end.