Помогите решить задачу пожалуйста (Pascal)

Question

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

Стас Пятак · Accepted Answer

var Chislo: Integer; 
 n:byte; 
begin 
 write('Число: '); 
 read(Chislo); 
 n:=Chislo mod 10; 
 write('Последняя цифра куба='); 
 case n of 
 2:write(8); 
 3:writeln(7); 
 7:write(3); 
 8:write(2); 
 else write(n); 
 end; 
end.

Гузель ....... · Answer

var a:integer; 
begin 
readln(a); a:=a mod 10; writeln((a*a*a)mod 10); readln 
end.