Помогите с 6 пожалуйста

Только на программе паскаль.
var s:string;
 c,l:integer;
 begin
readln(c);
s:=IntToStr(c);
l:=sqr(StrToInt(s[length(s)]));
writeln(l);  
end.

Если c++ то 
#includelt;iostreamgt;
using namespace std;
int main() {
int a,b;
cingt;gt;a;
b = a10;
coutlt;lt;blt;lt; b * b;
return 0;
}