Дано слово. вывести на экран его k символ.

{ ответ дан на языке Pascal }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  k: INTEGER;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  WRITE('Введите k-й символ: ');
  READLN(k);
  WRITELN(Str[k]);
END.