Kết quả thuật toán đệ quy: Function Test(st:string):string; Begin If length(st) <=1 then Test:=st Else

Kết quả thuật toán đệ quy:

Function Test(st:string):string;

Begin

If length(st) <=1 then Test:=st

Else Test:= st[length(st)] + Test(Copy(st,1,length(st)-1));

End;