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

Var a, b: longint;
begin
write ('введите число ->  ');
readln (a);
a:=a mod 10;
b:=(a*a) mod 10;
writeln ('последняя цифра квадрата числа -> ',b);
end.