program ideone;
Uses sysutils;
var
suaString : string;
TAB : char;
tabCount : Integer;
stringOfTabs : string;
begin
TAB := #9;
suaString:= TAB + TAB + TAB + 'Texto';
tabCount := Length(suaString) - Length(TrimLeft(suaString));
stringOfTabs := StringOfChar(TAB,tabCount);
writeln('A sua string: ', suaString);
writeln('Numero de Tabs: ', tabCount);
writeln(stringOfTabs + 'Tabs aplicados a outra string');
end.
cHJvZ3JhbSBpZGVvbmU7ClVzZXMgc3lzdXRpbHM7CnZhcgogIHN1YVN0cmluZyA6IHN0cmluZzsKICBUQUIgOiBjaGFyOwogIHRhYkNvdW50IDogSW50ZWdlcjsKICBzdHJpbmdPZlRhYnMgOiBzdHJpbmc7CmJlZ2luCgogIFRBQiA6PSAjOTsKICBzdWFTdHJpbmc6PSBUQUIgKyBUQUIgKyBUQUIgKyAnVGV4dG8nOwogIHRhYkNvdW50IDo9IExlbmd0aChzdWFTdHJpbmcpIC0gTGVuZ3RoKFRyaW1MZWZ0KHN1YVN0cmluZykpOwogIHN0cmluZ09mVGFicyA6PSBTdHJpbmdPZkNoYXIoVEFCLHRhYkNvdW50KTsKICAKICB3cml0ZWxuKCdBIHN1YSBzdHJpbmc6ICcsIHN1YVN0cmluZyk7CiAgd3JpdGVsbignTnVtZXJvIGRlIFRhYnM6ICcsIHRhYkNvdW50KTsKICB3cml0ZWxuKHN0cmluZ09mVGFicyArICdUYWJzIGFwbGljYWRvcyBhIG91dHJhIHN0cmluZycpOwoKZW5kLg==