Program Task; Var s: String; Begin WriteLn('Введите строку'); ReadLn(s); WriteLn('Третий символ: ', s[3]); ReadLn; End.