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

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