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

Program ;
var A: string;
k : integer;
begin
    readln(A);
    k := length(A);
    writeln(A[1], A[3], A[k]);
end.

Что происходит в программе? Мы берем А с индексами 3, 1 а также с индексом k, где k-- длина всего слова, которую мы определяем с функции length.