Question

Задание в Паскале. Дана строка, найти 3 символ

Answer 1

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