Question

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

Answer 1

var x: integer;
begin
     readln(x);
     x := x mod 10;
     x := sqr(x);
     x := x mod 10;
     writeln(x);
end.

А это сокращённо:
var x: integer;
begin
     readln(x);
     writeln(sqr(x mod 10) mod 10);
end.