Дана строка длинной более двух символов. Написать программу, выводящую на экран строку, составленную из первого, третьего и последнего символов исходной строки.

program llllll; var A: string; k : integer; begin     readln(A);     k := length(A);     writeln(A[1], A[3], A[k]); end. Что происходит в программе? Мы берем А с индексами 3, 1 а также с индексом k, где k-- длина всего слова, которую мы определяем с помощью функции length.