Ответ:

var a,b:integer;

Begin

readln(a);

b:=a mod 10;

writeln(b);

End.

Объяснение:

Мы вводим некое число а, например 100 mod означает деление с остатком, тоесть мы делим число 100 на 10 и находим остаток от деления, остатком будет 0.