program lastDigit;
var
num, last: integer;
begin
writeln('Введите любое трехзначное число:');
readln(num);

last := num mod 10;

writeln('Последняя цифра числа ', num, ' равна ', last);
end.