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

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