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

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.