Có gì thì nói mình nhé.
===========================
program Hello;
uses crt;
var n:string;
i:integer;
begin
readln(n);
for i:= length(n) downto 1 do
write(n[i]);
readln;
end.
===================================
23:
program Hello;
uses crt;
var m:int64;
function t(n:int64):int64;
var a,s,b:int64;
begin
s:= 0;
b:= n mod 10;
n:= n div 10;
a:= n mod 10;
while n > 0 do
begin
s:= s + abs(a - b);
b:= n mod 10;
n:= n div 10;
a:= n mod 10;
end;
t:= s;
end;
begin
readln(m);
writeln(t(m));
readln;
end.
