дано натуральное число n<100. найти последнюю цифру числа n ... на языке Па

Для нахождения последней цифры используется нахождение остатка при делении двузначного числа на 10 (деление по модулю на 10).

program last_digit;

var n: integer;

begin

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

readln (n);

if n <10 then writeln ('В этом числе первая и последняя цифры совпадают - ', n)

else

begin

n : = n mod 10;

writeln ('Последняя цифра - ', n)

end

end.