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