program lastDigit;varnum, last: integer;beginwriteln('Введите любое трехзначное число:');readln(num);
last := num mod 10;
writeln('Последняя цифра числа ', num, ' равна ', last);end.
program lastDigit;
var
num, last: integer;
begin
writeln('Введите любое трехзначное число:');
readln(num);
last := num mod 10;
writeln('Последняя цифра числа ', num, ' равна ', last);
end.