Программа на Паскале, которая считает сумму трёх последних цифр в числе.

Program N1;

var n : integer;

begin

 writeln('введите число');

 read(n);

 write(n mod 10 + (n div 10) mod 10 + (n div 100) mod 10);

end.