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

CLS
a:
INPUT a
IF INT(a)<>a THEN PRINT "не может быть": GOTO a
b=a-10*INT(a/10)
c=b^2
PRINT c
END

Pascal:
var n:longint;
begin
  write ('N = ');
  readln (n);
  writeln (sqr(n mod 10));
  readln;
end.

C++:
#include <iostream>
using namespace std;

int main()
{
   int n;
   cout <<"N = ";
   cin >>n;
   cout <<n%10*n%10 <<endl;
   return 0;
}