составьте программу в Pascal abc, утраивающую каждую букву в заданной строке.
пример ввода: кот
пример вывода : кккоооттт

Var S : String;i : Byte;Begin  Readln(S);  For i:=Length(S) downto 1 do Insert(S[i]+S[i],S,i);  Writeln(S);end.