program р36;
uses crt;
var n,k :integer;
L1,L :string;
i:Byte;
begin
clrscr;
writeln('n =');readln(n);
str(n,L);l1:= ' ';
for i:=length(L) downto 1 do
L1:=L1+copy(L,i,1);
writeln('o6pam.чucлo=',L1);val(L1,n,k);
if k=o then
writeln('квад'=),sqr(n);
readln;
end.