формула решения n:= n mod 10; n вводим с клавиатуры. и кстати программа позволяет выдилять последнию цифру не только с 3х значных цифр.
var a:integer;
begin
readln(a);
a= copy(a,3,1);
writeln(a);
readln;
end.
