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

var
  a: integer;

begin
  readln(a);
  a := a mod 10;
  case a of
    1, 9:
      write(1);
    2, 8:
      write(4);
    3, 7:
      write(9);
    4, 6:
      write(6);
    5:
      write(5);
  end;

end.