Question

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

Answer 1

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.