создать программу дозволяющую по заключительной цифре данного числа найти заключительную цифру

Var
  n:integer;

begin
  Write('n='); Read(n);
  n:=Абс(n); защита от злобных буратинок, любящих минусы
  n:=n mod 10;
  n:=n*n*n mod 10;
  Writeln('Последняя цифра куба этого числа равна ',n)
end.

Пример
n=352421137
Заключительная цифра куба этого числа одинакова 3