var s: string;beginwriteln('Напишите слово');readln(s);writeln('Первый символ: ', s[1], ' Второй символ: ', s[2], ' Последний символ: ', s[length(s)], '');end.