Ввести число, записать образующие его цифры в обратном порядке и найти квадрат полученного числа. (Например, исходное число -81; обратное - 18; его квадрат - 324).

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.