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

Var

n:integer;

begin

Write ('n=') ; Read (n) ;

n:=Abs (n) ; { защита от злобных буратинок, любящих минусы }

n:=n mod 10;

n:=n*n*n mod 10;

Writeln ('Последняя цифра куба этого числа равна ', n)

end.

Пример

n=352421137

Последняя цифра куба этого числа равна 3